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ABSTRACT 

This report gives the operator of the Hewlett-Packard 
(HP- 41) handheld calculator the ability to quickly and accu- 
rately determine the power requirements of a helicopter in 
the preliminary design phase. These power requirements are 
computed for three landing gear configurations: skid, fixed 

wheel, and retractable wheel. By comparing the power required 
for each configuration, the user can determine the optimum 
landing gear for the design. 
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I. 



INTRODUCTION 



A. BACKGROUND 

The design process for any aircraft is a tedious, often 
repetitive procedure, and for a Helicopter, all complexities 
are compounded. In order to facilitate the design process, 
computer programs have been derived that will replace long 
calculations with a speedy solution to many of the problems. 
These programs, however, are generally quite lengthy and are 
not amenable to an educational conceptual design project, or 
to 'quick looks' at proposed decisions. 

Two aids to the determination of helicopter performance 
and/or helicopter design have been developed in the Depart- 
ment of Aeronautics at the Naval Postgraduate School. These 
are the series of programs for the HP-41 handheld computer 
[Ref. 1] and the Helicopter Conceptual Design Manual [Ref. 2] 
which uses these programs. 

None of these programs relate to the landing gear of the 
helicopter, even though such programs are necessary in order 
to determine the most advantageous landing gear configuration 
for a particular design. 

B . GOALS 

The initial goal of this project was to develop a series 
of programs for the handheld HP-41 computer which would 
enable the student to determine which landing gear configura- 
tion best complements his design. In the course of 
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accomplishing this goal, it became apparent that numerous 
additional programs, written from the Helicopter Design 
Manual, would be required. A second goal was therefore 
established; to program the design course in such a way that 
the student could accomplish his required tasks without the 
mundane iterative calculations required in a design proce- 
dure. If hand calculations were required, instructors 
could rapidly check the student's work with these programs. 

Mr. Ronald Shinn, from the Advanced Systems Branch, Army 
Aviation Research and Development Command, provided an addi- 
tional goal. Inasmuch as a definite need exists for the 
design engineer to be able to quickly and inexpensively 
derive a design that is fairly accurate in the preliminary 
design phase, a third goal was established; to obtain an 
output from the programs which is, on average, within ten 
percent of the Advanced Systems Branch large scale computer 
program output. 

A final goal was to design the programs in such a way as 
to eliminate the necessity for the student or design engineer 
to refer to charts and graphs for the necessary input infor- 
mation. Thus, the programs are designed to be "self-contained." 
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II. APPROACH TO THE PROBLEM 



A. 3ASIC LINE OF APPROACH 

A series of programs were written for the HP-41, which 
would output the horsepower required at various airspeeds 
and altitudes for a helicopter with skid, fixed wheel, or 
retractable type landing gear. From these power outputs, a 
graph can be plotted which will indicate the crossover point, 
i.e., where the retractable gear, with its additional weight 
and reduced drag, will require less power than the skid or 
fixed wheel configured aircraft. Thus, depending on the 
average environment of the helicopter in question, a deter- 
mination can be made as to which type of landing gear would 
contribute the most to the design. 

B. DETAILED LINE OF APPROACH 

As stated in section IB, one goal of this project was to 
eliminate, as much as possible, the use of graphs and charts 
to provide the necessary inputs when utilizing the programs. 
With this objective in mind. Chapters Two and Three of the 
Helicopter Design Manual were programmed. The Chapter Two 
program, entitled MR (Main Rotor) , does not deviate from the 
design manual. By inputting the specification weight, rotor 
radius, critical Mach number, and maximum forward velocity, 
the program displays the maximum rotor tip velocity, disk 
loading, rotational velocity, coefficient of thrust, solidity, 
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chord length, aspect ratio, and coefficient of lift. The user 
is then prompted as to whether the value inputted for Rotor 
Radius, R, is satisfactory (i.e., are the displayed values 
within prescribed limits? A reduction in rotor radius will 
increase disk loading, decrease aspect ratio, and increase 
rotational velocity.) If a new value for R is not needed, the 
Chapter Three program, entitled PHV, (Power to Hover) , is 
executed. This program computes the power to hover out of 
and in ground effect. The subroutine "FM," (Figure of Merit), 
is then executed from the PHV program. If the Figure of Merit 
is within limits (.7 to .8), the subroutine "WT," (Weight), is 
executed. If, however, "FM" is out of limits, the program 
prompts the user as to whether the value is high, in which 
case the subroutine "CHD," (Chord), is executed, or low 
(subroutine "RV, " (Rotational Velocity), is executed). 

The "WT" subroutine (using sixty percent of the specifi- 
cation gross weight as a first approximation for empty weight) 
computes a second approximation of the empty weight using the 
equations found in the Weight Estimating Relationships [Ref. 
3]. To this empty weight are added fuel, useful load, and 
landing gear weight. 

For the first iteration, a skid gear weight is added and 
is used as a case for future landing gear computations. The 
take-off gross weight is displayed and the user is prompted 
as to whether this weight is satisfactory (i.e., if enough 
allowance is made for the additional weight of the fixed and 
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retractable type landing gears, keeping in mind the maximum 
allowable gross weight specified for the design) . If the 
weight is not satisfactory, the WT program uses the second 
approximation of empty weight as a base and re-computes the 
take-off gross weight as before. If this value is satisfac- 
tory, the MR, PHV, and associated subroutines are re-executed 
using this new gross weight approximation. If all displayed 
values are still within specifications, the program prompts 
the user to clear certain programs from computer memory and 
to input other programs. This must be done due to the limited 
number of storage registers available in the HP-41. The 
inputted programs are PTOT, PCOMP , and ESHP; (Power Total, 
Compressibility Power, and Equivalent Shaft Horsepower, 
respectively) . 

Three PTOT programs have been written. One is designed 
specifically for use with the HP 82143A printer. The output 
is automatic and consists of a velocity and the equivalent 
shaft horsepower required at that speed. A second program 
outputs only the ESHP required for an inputted velocity (no 
printer required) . The third program may be used with or 
without the printer and displays all of the individual powers 
that comprise the ESHP for a specified velocity. 

The subroutines EFPA, PCOMP, and ESHP are used in the 
main program PTOT. EFPA computes the effective flat plate 
area of the design helicopter. This value is determined from 
the aircraft gross weight, its landing gear configuration and 
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whether the aircraft, in the opinion of the user, has clean 
or dirty lines. PCOMP computes the additional horsepower 
required due to compressibility effects while ESHP computes 
the extra power needed due to accessories, transmission 
losses, and losses due to multiple engine installation. 

Once PTOT has been executed and the data recorded, the 
user re-executes the WT program. Since the skid landing gear 
is to be used as a base for determining the weight of the 
fixed and retractable gear, the program automatically bypasses 
the component weight calculations, thereby allowing the 
identical empty weight to be used. The user inputs the same 
values for fuel and useful load weight. Following the 
calculator prompts, the user inputs fixed gear information. 

The new take-off gross weight is computed and the program 
transfers to PTOT. The reader will recall that during the 
first iteration of the WT program (using skid gear informa- 
tion) , the MR program was re-executed to insure that the newly 
computed value of gross weight did not result in specification 
violations. The additional weight of the fixed and retract- 
able landing gear results in less than a four percent 
increase in the total gross weight of the aircraft. It is 
therefore not necessary to again check the MR values, for 
this small increase in gross weight will not result in speci- 
fication violations. After obtaining the power outputs with 
the fixed landing gear, re-execute the WT program, inputting 
retractable landing gear data. Once the three data sets have 
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been computed, it is a simple matter to compare these lists 
to determine the crossover points. 

For a graphical display of the crossover points, two 
programs have been developed: MYPLOT and POWERPLO [Ref. 4], 

These programs are compatible with the TEXTRONICS/DISSPLA 
package . 
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III. RESULTS AND CONCLUSIONS 



This series of programs allows the user to quickly and 
accurately determine the power required of a helicopter at 
any speed, and at any altitude. The user is able to deter- 
mine the most advantageous landing gear configuration for 
his design depending on the projected mission environment 
of the aircraft. 

In an attempt to display the accuracy of these programs, 
three sample problems are solved in Appendix 3. The first 
is a step-by-step cargo helicopter design problem. The 
second is an attempt to design a current production heli- 
copter, the Hughes AAH-64, and compare the actual power 
outputs with the HP-41 program outputs. The third problem 
compares the Army Aviation Research and Development Command's 
Advanced System's computer power outputs with that of the 
HP-41 program outputs given the identical input data. 

Though accurate, inexpensive, and rapidly executed, it 
must be emphasized that these programs represent only the 
"back of the envelope" phase of preliminary design. Further 
detailed analysis currently requires the use of expensive 
main frame computers. 
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APPENDIX A 



HP-41 COMPUTER PROGRAM 

MAIN ROTOR (MR ) 

1 . PURPOSE 

This program represents the Second Chapter in the Heli- 
copter Design Manual. It computes the disk loading (DL) , 
rotational velocity (RV) ,■ coefficient of thrust (CT) , 
solidity (SD) , chord length (c) , aspect ratio (AR) , coeffici- 
ent of lift (CL) , and the maximum rotor blade tip velocity 
V(TIP) given the following inputs: 

A) Specification Weight (Spec Wt) : the absolute maximum 

gross weight allowable. 

B) Main Rotor Radius (R) : this is an educated guess. 

Start by using the design maximum radius allowed. 

C) Critical Mach Number (Mch Crit) : to prevent the rotor 

blade from encountering undesirable compressibility effects, 
use the historically acceptable value of .65. 

D) Maximum Forward Velocity (VF Max): input the design's 

maximum forward velocity. 

Throughout all of these programs, when prompted for a Yes 
or No answer, the user should input a 1 for Yes, and a 0 for 
No. 

2 . EQUATIONS 

DL= (GW) / ( (PI) *R**2) where the first approximation 

of GW = (Spec Wt) * .8 
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VT(max)ssl = (Mch Crit) * (a) where a = 

Sqrt (Gamma * g * R * T) 

RV=VT (Max ) / ( R) 

CT= (GW) / ( A * RHO * VT ( Max ) * * 2 ) 

SD=(CT/ (BL) 

where BL= ( (-.16667) * (VF Max/.59248)/VT Max) + .15515 

Note: The blade loading calculation is derived from a chart 

of blade loading vs. advanced ratio. The chart is linear 
for an advanced ratio (VF Max)/(VT Max) of > .35. The 
equation for a straight line (y=mx+b) was therefore used 
for this approximation. 

c= (SD * PI * R)/b 

AR= (R) /c 

CL= (6 * CT) /SD 

where : 



DL = disk loading 
R = radius of the main rotor 

RV = rotational velocity 
RHO = density altitude 
BL = blade loading 
c = chord (main rotor) 

CL = coefficient of lift 



GW = gross weight 

VT(Max) = blade maximum 
tip velocity 

CT = coefficient of thrust 
SD = solidity 

b = no. of main rotor blades 
AR = aspect ratio 
A = Area of main rotor 
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3. FLOWCHART (MR) 
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FLOWCHART (MR) (CONT) 
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4. EXAMPLE PROBLEM AND USER INSTRUCTIONS 

A helicopter is to be designed with the following 
specifications : 

VF (Max) = 160 kts 
(Spec Wt) = 18000 lbs 
Maximum Rotor Diameter = 58 ft 

AR must be between 15 and 25 and DL must be less than 7.5. 
Compute DL, RV, CT, SD, c, AR, and CL. 

Input the MR (Main Rotor) program and clear all flags. 



KEYSTROKES 


DISPLAY 


XEQ (alpha) SIZE (alpha) 


SIZE. . . 


068 XEQ 


(alpha) MR (alpha) 


Spec Wt=? 


18000 


(r/s) 


R=? 


29 


(r/s) 


Mch Crit=? 


0.65 


(r/s) 


VT MX= 7 25.63 




(r/s) 


VF MX=? 


160 


(r/s) 


DL=5 .45 




(r/s) 


RV=25 . 02 




(r/s) 


CT=. 004 




(r/s) 


SD=. 047 




(r/s) 


c~ 1.065 




(r/s) 


AR=27 . 23 




(r/s) 


CL= .559 




(r/s) 


R ok? 


0 


(r/s) 
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If these values are not within specifications, push (r/s) 
and input a new value of R. Since flag 00 is now set, the 
program automatically goes to R=? Because AR is rather high, 
input a new value of 27 feet for R. Proceeding as before, the 



following data is displayed. 




KEYSTROKES 


DISPLAY 


(r/s) 


00 

CM 

• 

kO 

II 

Q 


(r/s) 


RV=26 . 87 


(r/s) 


CT=. 005 


(r/s) 


S D= . 0 5 4 


(r/s) 


c=l . 14 4 


(r/s) 


AR= 23.6 


(r/s) 


CL= .559 


(r/s) 
1 (r/s) 


R ok? 



By decreasing the rotor radius, the aspect ratio was 
decreased while disk loading was increased. Both values are 
now within the specifications. Because 1 was inputted for 
the prompt (R ok?) , the program automatically advances to the 
PHV program. 
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5 . PROGRAM LISTINGS 
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POWER TO HOVER (PHV) 



1. PURPOSE 

This program computes the power required to hover in and 
out of ground effect at SSL. This program is to be run 
following satisfactory completion of the MR program. A sub- 
routine entitled "FM" is used to calculate the Figure of 
Merit for the aircraft. If the Figure of Merit does not 
fall within prescribed limits, the subroutine chord (CHD) , or 
rotational velocity (RV) , will automatically be executed. 

The following are required inputs for PHV. 

A) Number of main rotor blades. 

B) Coefficient of drag of the main rotor, (Cdo) . 

C) Height of the main rotor above the ground, (H) . 

2. EQUATIONS 

B (MR) =1- [ (2 * CT (MR) ) ** . 5/b (MR) ] 

Pi (MR) = ( 1/B) * [(GW) **1.5/(2 * RHO * A)**. 5] 

Po (MR) = ( (SD) * (Cdo) * (RHO) * (A) * (VT) **3) /4400 
Pt= (OGE) =Pi + Po 

P/P (OGE) =-0.1276* (H/( 2 *R) ** 4) + . 70 80* (H/ (2 *R) **3) 

-1.456 9*(H/(2*R) **2) +1 . 3 432 * (H/2*R) ) + .514 7 
Pt (IGE) =Po (MR) + P/P (OGE) + Pi (MR) 
where : 

B is the tip loss factor. 

A is the area of the main rotor disk. 

Pi is the induced power (with tip loss) . 
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Cdo is the coefficient of drag for the main rotor (at zero 
lift) . 

Po is the profile power. 

Pt(OGE) is the total power to hover out of ground effect. 
Pt(IGE) is the total power to hover in ground effect. 
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3 . FLOWCHART 
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4. EXAMPLE PROBLEM AND USER INSTRUCTIONS: 



Following a satisfactory run of "MR," determine the 
power to hover out of and in ground effect and the Figure of 
Merit for the helicopter. 

Specifications: 

Number of main rotor blades = 4 

Coefficient of Drag (Cdo) of the main rotor = .01 
Height of the main rotor above the ground = 14.4 ft 



KEYSTROKES 
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PROGRAM LISTINGS 



5 : 
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WEIGHT (WT) 



1. PURPOSE 

This program uses an iterative procedure to compute a 
more accurate estimate of the empty weight and total gross 
weight of the helicopter. 

The program makes a "1st cut" estimate of the empty 
weight (WE) by multiplying the specification weight by .6. 

This WE is then used to compute the weight of the blades, hub, 
fuselage, controls, electrical and fixed equipment. The 
weight of the propulsion system is estimated by recalling R30 
(Pth(OGE)) and multiplying by 1.2. These values are then 
added together and represent the second empty weight estimate 
(WE2) . To estimate the total gross weight, fuel, useful load, 
and landing gear weight are added to the empty weight figure. 
Three types of landing gear are considered; skid, fixed 
wheel, and retractable wheel. A common practice among air- 
craft designers is to add two pounds to the gross weight of 
the aircraft for every additional pound added as a result of 
heavier equipment being installed. This is due to the fact 
that one additional pound requires more power which results 
in more fuel usage. In this case, the skid is lighter than 
the fixed wheel gear which, in turn, is lighter than the 
retractable gear. 

This gross weight estimate is calculated as follows: 
the skid gear weight is calculated and is used as a reference 
point. This weight is subtracted from the fixed wheel gear 
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weight. An identical procedure occurs for the retractable 
gear. In this manner, every extra pound due to the addition 
of a heavier landing gear results in two extra pounds being 
added to the gross weight of the aircraft. 

The formulas for computing the landing gear weight use 
the specification weight (absolute maximum weight allowed) . 
If the user desires to incorporate a "buffer" to insure a 
satisfactory performance of the landing gear during a hard 
landing, this weight should be increased by a suitable 
percentage . 

2 . EQUATIONS 

Wb= (.06) * (WE) * (R** . 4) * (SD) **.33 
Wh= (.0135) * (WE) * (R** . 42 ) 

Wp= (0.21) *Pth (OGE) 

Wf= (0.21) * (WE ) 

Wc= (0.06) * (WE) 

We= (0.06) * (WE) 

Wq= (0.28) * (WE) 

Weight of the skid gear= (. 0245* (Spec Wt)**.8606) 

* (FL) ** .8046 

Weight of fixed and retractable landing gear=40.0* 

(WMTO) ** . 6662 * (NW)**.536 
* ( IRLG) **.1198 

where : 

Wb is the total weight of the blades . 

Wh is the weight of the hub. 

Wp is the weight of the propulsion system. 
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Wf is the weight of the fuselage. 

Wc is the weight of the flight controls. 

We is the weight of the aircraft's electrical equipment. 

Wq is the weight of the installed fixed equipment. 

WE2 is the empty weight (the sum of the above) . 

R is the main rotor radius . 

SD is the main rotor solidity. 

Pth(OGE) is the power to hover out of ground effect 
(recalled from R30) . 

FL is a coefficient. If the main rotor has two blades, 
the program uses a value of 2 . If more than 
2, FL=4 . 

WMTO is the specification weight divided by one thousand. 
NW is the number of landing gears. 

IRLG is the retractable gear flag (l=fixed , 2=retractable) 

Mr. Ronald Shinn developed the equation for skid gear 
weight. Most designers use 2% of GW to determine skid 
weight. In an effort to achieve a more accurate equation 
he used a multiple regression routine to arrive at his 
equation. This formula has an 11% error when compared 
against the skid weight of eight operational helicopters. 
The equation used to determine the fixed and retractable 
landing gear weights had an 8.5% error when compared with 
29 operational aircraft. 
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3. FLOWCHART 
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A 



FLOWCHART (CONT) 
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FLOWCHART (CONT) 
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4. EXAMPLE PROBLEM AND USER INSTRUCTIONS 

The user will note that at the conclusion of the PHV 
example problem, the program transferred automatically to 
the WT program (WE=10800.00 was displayed) . If this value is 
in the calculator display window, disregard the initial key 
stroke instruction. 

KEYSTROKES DISPLAY 



XEQ 


(alpha) WT (alpha) 


WE=10 , 800 




(r/s) 


Wb= 9 24.0 




(r/s) 


Wh=582 . 01 




(r/s) 


Wp=1477 . 99 




(r/s) 


Wf=226 8 . 00 




(r/s) 


Wc=648 . 00 




(r/s) 


We=648 .00 




(r/s) 


Wq=302 4 . 0 0 




(r/s) 


WE 2 =9572.01 




(r/s) 


W FL? 


4000 


(r/s) 


USE LD? 


3750 


(r/s) 


SKID? 


1 


(r/s) 


MR>2 BLDS? 


1 


(r/s) 


T GW=17665 . 30 



At this point, push the (r/s) button. The computer will 
prompt, "WT OK?" If the weight is far enough below the 
specification weight to allow room for the added weight of 
the fixed and retractable landing gear, input 1 (Yes) . Input 
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0 (No) , otherwise. If this second option is taken, the 
computer displays the most recently computed value of empty 
weight and uses this as a base for iteration. For this 
example problem, perform an additional iteration. 



KEYSTROKES 


DISPLAY 




(r/s) 


WT OK? 


0 


(r/s) 


WE= 9572.01 




(r/s) 


Wb= 818 . 94 




(r/s) 


Wh=515 . 83 




(r/s) 


Wp=1477 .99 




(r/s) 


Wf=2010 . 12 




(r/s) 


Wc=574 . 32 




(r/s) 


We=574 . 32 




(r/s) 


Wq=2680 . 16 




(r/s) 


WE 2 =8651.69 




(r/s) 


W FL? 


4000 


(r/s) 


USE LD=? 


3750 


(r/s) 


SKID? 


1 


(r/s) 


MB> 2 BLDS? 


1 


(r/s) 


T GW=16744 . 99 




(r/s) 


WT OK? 


1 


(r/s) 





The program transfers back to the MR program. This newly 
computed value of gross weight is now used to obtain the MR 
output. The user must again check to insure all values are 
within prescribed specifications. 
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5- PROGRAM LISTING 



■0!*L8L "MI" 

92 OF 95 

93 m 2 

94 F$? 55 

95 OF 2! 

96 RCL 39 

97 ,6 
99 * 

99*181 91 
19 FS? 03 

11 GTO 92 

12 FS? 91 

13 RCL 35 

14 -IIE=* 

15 fiRCL X 

16 GVIEW 

17 STOP 

18 STO 35 

19 RCL 85 

20 ,4 

21 YtX 

22 * 

23 ,96 

24 * 

25 RCL 19 

26 .33 

27 m 
23 * 

29 STO 36 

38 *Hb=* 

31 fiRCL X 

32 fiVIEs 

33 STOP 

34 RCL 35 

35 .8135 

36 * 

37 RCL 85 
33 .42 

39 m 

40 * 

41 ST+ 36 

42 “Wfi=“ 

43 fiRCL 'A 

44 aviEH 

45 STOP 

46 RCL 39 

47 1.2 
43 « 

49 ST* 36 



58 “HP=* 

51 fiRCL X 

52 fiYIEsi 

53 STOP 

54 RCL 35 

55 .21 

56 * 

57 ST+ 36 
53 ”MF=- 

59 fiRCL X 

68 fiVIEii 

61 STOP 

62 RCL 35 

63 .86 

64 * 

65 ST* 36 

66 -HC=- 

67 fiRCL X 
63 fiVIEK 

69 STOP 
78 RCL 35 

71 ,86 

72 * 

73 ST* 36 

74 -Jigs* 

75 fiRCL X 

76 QVIEW 

77 STOP 

78 RCL 35 

79 ,28 
39 * 

31 ST* 36 

32 *U8=* 

33 fiRCL X 

34 WIEH 

35 STOP 

36 RCL 36 

37 “HE 2=“ 
33 fiRCL X 
89 QVIEM 
99 STOP 

91 STO 35 
92*L3L 92 

93 RCL 35 

94 4:?? 03 

95 STO 36 

96 -H FL?" 

97 5ROHPT 
93 ST* 36 
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99 "USE ID?" 
180 PROMPT 
19! ST+ 36 
!02 "SKID?" 

183 PROMPT 

184 X>8? 

185 GTO 84 

186 RCL 39 
18? 1088 
180 / 

189 ,6662 
lie m 
11! STO 88 

112 "NO. LG?' 

113 PROMPT 
!H ,536 

115 Ytse 

116 ST* 88 
11? 40 

118 ST* 80 

119 RCL 88 

120 STO 66 
12! "EX GR?" 

122 PROMPT 

123 X>8> 

124 GTO 87 
S25 2 

126 ENTERt 
12? ,1198 

128 YtX 

129 ST* 80 
138 RCL 88 
13! GTO 88 
!32*LBL 84 

133 "MR >2 EOS?' 

134 PROMPT 

135 X>8? 

136 GTO 85 

137 2 

138 ENTERt 

139 ,8846 
148 m 

141 RCL 39 

142 ,8686 
H3 YfM 

144 * 

145 ,8245 

146 * 

14? STO 65 



148 GTO 09 
1*9*L8L 85 

158 4 

15! ENTERt 

152 .8846 

153 YtX 

154 RCL 30 

155 ,8686 

156 YtX 

157 * 

153 .8245 

159 * 

169 STO 65 
16! GTO 89 
162+LBL 87 

163 RCL 66 

164 RCL 65 

165 - 

166 2 
167 * 

163 RCL 66 
169 + 

178 GTO 89 
171+L8L 88 



172 


RCL 06 


173 


RCL 65 


174 


- 


175 


2 


176 


■k 


17? 


RCL 88 


178 


+ 


179+L8L 89 


138 


ST+ 36 


181 


RCL 36 


132 


"T GM=' 


183 


GRCL X 


184 


PVIEH 


135 


STOP 


186 


FS? 83 


187 


XEO "PTOT" 


138 


SF 81 


139 


■UT OK?" 


198 


PROMPT 


19! 


X=8? 


192 


GTO 8! 


193 


SF 84 


194 


XEQ "MR" 


!95 


END 
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TOTAL POWER ( PTOT ) 



1. PURPOSE 

Three PTOT programs were written. The first program was 
designed specifically for use with the HP82143A printer. 

The printer outputs the velocity and corresponding engine 
shaft horsepower required. The second PTOT program was 
designed for the user who does not have access to the HP 
printer. This program displays the engine shaft horsepower 
required at an inputted velocity. The third program displays, 
for an inputted velocity, all of the individual powers 
required, for both main and tail rotors, the total power 
required and the engine shaft horsepower required. This pro- 
gram can be used with or without the printer. Because of the 
detail involved with this program, execution is much slower 
than with the other two programs. 

2 . EQUATIONS 

Pp (mr fwd) =(0.5) *rho*V ( fwd) **3*EFPA ( f f ) 

Vi (mr hover ) = (GW/'(2*rho*A) ) ** . 5 

Pi (mr fwd) =GW ( - ( V ( fwd) **2/Vi (hover) **2)/2 
( (V ( fwd) **2/ (2*Vi (hover) **2)+l 
**.5)) **.5 * Vi (hover) 

Po(mr hover) = (SIGMA (mr) * Cdo(mr) * rho * A(mr) 

* V (mr tip) **3) /4400 

MU (mr ) =V ( fwd) / V(mr tip) 

Po(mr fwd) = (1+4 .3*MU**2) * Po (mr hover) 

Pt (mr fwd) =Po (mr fwd) + Pp(mr fwd) + Pi(mr fwd) 

Mach Tip(mr)= (V(fwd) - V (mr tip)) / 

(gamma * g * R * T)**.5 
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R ( tr) = (GW / 1000)**. 5 * 1.3 
L ( tail) =R( tr) + R(mr) + .5 
Chord (tr) =R(tr) / AR(tr) 

T(tr)=Pt(mr hover oge) / (RV(mr) * L(tr) 

A(tr) =R ( tr) **2 * PI 

V(tr tip)=RV(mr) * 4.5 * R(tr) 

CT ( tr ) =T ( tr ) /(A(tr) * rho * V(tr tip)**2) 

B (tr) =1- ( (2 * CT(tr) ) **.5 / b(tr)) 

Pi ( tr tl hover) = (1 / B(tr)) * (T(tr)**1.5 / 

(2 * rho * A ( tr) ) **.5) 

SIGMA (tr) = (b(tr) * C (tr) ) / (R(tr) * PI) 

Po(tr hover) = (SIGMA(tr) * Cdo(tr) * rho * A(tr) * 

V ( tr tip) **3)/4400 

Pt(tr hover) =Po (tr) + Pi(tr tl) 

MU(tr) =V(fwd) / V ( tr tl) 

Po(tr fwd)=Po(tr hover) * (1+4.3 * MU(tr)**2) 

T(tr fwd)=Pt(mr fwd) / (RV(mr) * L(tr)) 

CT(tr fwd)=T(tr fwd) / (A(tr) * rho * V(tr tip) **2) 

B ( tr fwd) =1- ( (2 * CT(tr) ) ** .5 / b(tr)) 

Vi(tr hover) = (T (tr) / (2 * rho * A(tr))**.5 

Vi (tr fwd) = (- ( v ( fwd) **2 / 2) + (V(fwd)**2 / 2) **2 

*(Pi(fwd) / P(hover)**2 * Vi(tr hover ) **4 ) ** . 5 

Pi (tr fwd)= (1 / B(tr)) * T(tr) * Vi(tr fwd) 

Pt(tr fwd)=Pi(tr fwd tl) + Po(tr fwd) 

Mach Tip(tr)= (V(fwd) + V(tr tip)) / 

(gamma * g * R * T)**.5 

where : 

Pp is the parasite power. 
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EFPA (ff) is the effective flat plate area (forward flight) . 
Vi (hover) is the induced velocity in hover. 

Pi (hover) is the induced power required to hover. 

Po (hover) is the profile power required to hover. 

SIGMA is the solidity. 

Cdo is the coefficient of drag. 

RHO is the density. 

A(mr) is the area of the main rotor. 

V(mr tip) is the tip velocity of the main rotor. 

R(tr) is the radius of the tail rotor. 

L(tr) is the length of the helicopter tail from the 
main rotor shaft to the tail rotor. 

T(tr) is the thrust of the tail rotor. 

CT(tr) is the coefficient of thrust of the tail rotor. 

B(tr) is the tip loss (tl) factor (tail rotor). 
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3, FLOWCHART 

A. PTOT (PRINTER) 
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45 



PTOT (PRINTER) (CONT) 




46 



PTOT (PRINTER) (CONT) 




47 
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B. PTOT (ABBREVIATED) 




49 



PTOT (ABBREVIATED) (CONT) 




50 



PTOT (ABBREVIATED) (CONT) 




C. PTOT (FULL DISPLAY) 




52 




53 



PTOT (FULL DISPLAY) (CONT) 

©_ 
Po+Pf +PD= 
Pt(MR F) 

I DISPLA Y 



IMPUTE 4 DISPLAY 
MCH MR 



± 



COMPUTE R(TR) L(TR) CHORD (TR) 
T(TR) A(TR) VTIP(TR) CT(TR) 

R ( TP ^ fr M R HiJVh 5 




i 




COMPUTE 
PKTR H) 
ST048 




1 


f 




COMPUTE 
Po(TR H) 
ST049 




3 


f 




SUM R48 
AND 49 
STO 50 




+ : 




COMPUTE 
POOR F) 
ST052 




I 


COMPUTE T(TR) 
rn» pncufl 


CT(TR) BOR) 
RD E1.XGH1 



'i 



COMPUTE 
PKTR F) 
ST056 

. 

COMPUTE 

MCH(TR) 

STQ60 

" 15 " 
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a 

PTOT (FULL DISPLAY ) (CONT) 




RCL R56 (Pt(TR F)) DISPLAY 



■R£1...RSP (P.n CT R F )) D ISPLAY 



1 

SUM R56 4 R52 ST057 
HTSPI AY Pt (TR F 3 
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-. EXAMPLE PROBLEM AND USER INSTRUCTIONS (PTOT — PRINTER) 

Calculate the total engine shaft horsepower required 
for the example helicopter from 0 to 160 knots at standard 
sea level (0 PA, 15 DEG CEN) . Increment the velocity every 
20 knots. 

Note: When prompted to input the control number, the 

user should recall that this number is of the form CCC.XXXFF. 
The CCC describes the starting value. .XXX is the final 
value, and FF is the incremental spacing. If the starting 
value is zero, the CCC need not be entered. For this 
example, input .16020. 



KEYSTROKES 




DISPLAY 


XEQ (ALPHA) PTOT (ALPHA) 


INPUT CNT NO 


0.16020 


(R/S) 


PA=? 


0 


(R/S) 


TEMP C=? 


15 


(R/S) 


AR TR=? 


8 


(R/S) 


NO. TR 3LS? 


4 


(R/S) 


CDO TR=? 


0.0145 


(R/S) 


EFPA KNOWN? 


0 


(R/S) 


CLEAN LINES? 


1 


(R/S) 


SKID? 


1 


(R/S) 


EFPA=20 . 95 




(R/S) 


NO. ENGS=? 


2 


(R/S) 
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Note: This program can, at this point, only be executed using 

skid data because the gross weight computation used in the 
"WT" program was computed on the basis of skid landing gear. 

Definitions : 

PA is the pressure altitude. 

TEMP C is the temperature in centigrade . 

AR TR is the aspect ratio of the tail rotor (historically 
between 4.5 and 8.0). 

NO. ENGS is the number of engines. 
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PRINTER OUTPUT 



TOTRL POWER 



G«=16744. 99 
FFPQr/'W. 95 

VEL <KH0TS> 

cc-ljp 



0 




186! 




20 


*** 


1688 




40 


T±$ 


1284 


±±A: 


88 




1 107 




80 




1173 


*** 


i 9 8 


*** 


1356 




128 




1647 


iacy. 


1 48 


*** 


2949 




1 68 


■exs: 


2576 
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6. EXAMPLE PROBLEM AND USER INSTRUCTIONS ( PTOT — ABBREVIATED) 
Note: Clear PTOT (PRINTER) and insert PTOT (ABBREVIATION) . 

Clear flags 02 and 05 manually. 



KEYSTROKES DISPLAY 

(SHIFT) CF 02 0 

(SHIFT) CF 05 0 

XEQ (ALPHA) CLP (ALPHA) CLP__ 

(ALPHA) PTOT (ALPHA) 



AFTER INPUTTING PTOT (ABBREVIATED) : 



KEYSTROKES 


DISPLAY 


XEQ 


(ALPHA) PTOT (ALPHA) 


FWD VEL=? 


0 




(R/S) 


PA=? 


0 




(R/S) 


TEMP C=? 


15 




(R/S) 


AR TR=? 


8 




(R/S) 


NO. TR BLS? 


4 




(R/S) 


CDO TR=? 


0.0145 


(R/S) 


EFPA KNOWN? 


1 




(R/S) 


EFPA=? 


20. 


95 


(R/S) 


NO. ENGS=? 


2 




(R/S) 


ESHP=1861 .14 






(R/S) 


FWD VEL? 


20 




(R/S) 


ESHP=1608. 01 






(R/S) 


FWD VEL? 


40 




(R/S) 


ESHP=120 4 . 25 






(R/S) 


FWD VEL? 



59 



60 


(R/S) 


1107.36 




(R/S) 


FWD VEL? 


80 


(R/S) 


1173.43 




(R/S) 


FWD VEL? 


100 


(R/S) 


ESHP=1356 . 32 




(R/S) 


FWD VEL? 


120 


(R/S) 


1646.68 




(R/S) 


FWD VEL? 


140 


(R/S) 


ESHP=204 9 . 57 




(R/S) 


FWD VEL? 


160 


(R/S) 


ESHP=2575 .93 


Note : 


When prompted "EFPA KNOWN?" 


a 1 was inputted (Yes 



since the EFPA was known from the PTOT (PRINTER) program. 

This results in a more rapid program execution. 

7. EXAMPLE PROBLEM AND USER INSTRUCTIONS (PTOT-FULL DISPLAY) 
Note: Clear PTOT (ABBREVIATION) and input PTOT (FULL 

DISPLAY). Also clear flags 02, 03, and 05. 



KEYSTROKES 


DISPLAY 


XEQ (ALPHA) PTOT (ALPHA) 


FWD VEL=? 


0 


(R/S) 


> 

II 

•o 


0 


(R/S) 


TEMP C=? 


15 


(R/S) 


AR TR=? 


8 


(R/S) 


NO. TR BLDS 


4 


(R/S) 


CDO TR=? 


0.0145 


(R/S) 


EFPA KNOWN? 



60 



1 



(R/S) 

(R/S) 



EFPA=? 



20.95 



For the inputted forward velocity of 0 knots, the following 
power values are displayed: 

Pi (fwd) =1227.14 
Pp=0 . 0 

Po ( fwd) =296.54 
Pt (fwd)=1523.69 
MCH (mr) = . 65 
MCH (tr) =0 .58 
Pi(tr fwd)=85.04 
Po(tr fwd) =29.51 
Pt(tr fwd) =11 4. 5 5 
PTOT=163 8 . 24 



The user is then prompted for the number of engines (this 
only occurs during the first iteration) . After inputting 2 
engines, the engine shaft horsepower required at zero air- 
speed is displayed: 1861.14. After pushing the (r/s) key, 

the user will be prompted for the forward velocity, pressure 
altitude, and temperature. In this way, power requirements 
at any airspeed and altitude may be computed anytime during 
the program operation. The user may transcribe a table of 
values from the displayed output. 
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8. PRINTER OUTPUT (PTOT — FULL DISPLAY) 

With the HP 8214 3A printer attached, the following data 
is outputted during the running of the program (two itera- 
tions are shown) . 



0,00 *** 

PI r 3= 12??. I 4 
PP=8.88 
PO F3=2%,54 
PT FB=1523.69 
HCH HR=8.*5 
HCH TR=0.58 
PI T?r=05,04 

PO TRF=29.51 
PT TRF=! 14,55 
PT0T=1638.24 
ESHP= 186 1.14 



28,80 *** 
PI F3= 1823.74 
PP=i,74 

PO F3-299.38 
PT FD=1324,?8 
*CH MR=8,h8 
HCH TP=8.61 
PI 7RF=59,56 
PO TRF=29.88 
PT TRF=89.42 
PT9T=1414.20 
ESHP=!688.81 
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PROGRAM LISTINGS 



A. PTOT (PRINTER) LISTING 



8!*L8L "PTOT” 


39 GTO 83 


77*L8L ”PO 


82 OF 2! 


48+L8L 02 


78 RCL 13 


S3 SF 83 


41 ”FFPS=?’ 


79 3 


84 -input cht no.* 


42 PROMPT 


88 m 


85 PROMPT 


43 PRS 


81 RCL 12 


86 STO 88 


44 STO 64 


82 * 


87 F$p 92 


45 XEQ ’PRX* 


83 RCL 11 


08 GTO 82 


46+LBL 83 


84 * 


00 KEO "RHG" 


47 FIX 0 


85 RCL 87 


10 "SR TP- 7 " 


48 RCL 09 


86 * 


!1 PROMPT 


44 SBV 


87 RCL 19 


12 3T0 61 


50 *VEL <KNOTS>“ 


88 * 


13 ’NO. TP 8LS’" 


51 PRS 


89 4408 


14 PROMPT 


52 -ESHP* 


98 / 


15 STO 58 


53 PRS 


91 STO 21 


16 "CdO TR=?” 


54 SBV 


92 XEQ ”M!J 


17 PROMPT 


55+L8L 8! 


93 X?2 


18 STO 82 


56 RCL 89 


94 4.3 


18 SF 82 


57 IHT 


95 * 


28+LBL 82 


58 PRX 


96 1 


21 SF 12 


39 .59248 


97 + 


22 SBV 


68 / 


98 * 


23 SBV 


6! STO 25 


99 STO 24 


24 -TOTAL POWER* 


62 3 


188 RTH 


25 PRS 


63 YfX 


181+L8L *HU 


26 SUV 


64 RCL 64 


182 RCL 25 


27 SBV 


65 RCL 11 


183 RCL 13 


28 CF 12 


66 * 


184 / 


20 RCL 36 


67 .5 


105 RTH 


38 *GH=* 


68 * 


186+LBL ’VI 


31 SRCL X 


69 RCL 25 


187 RCL 36 


32 QVTEW 


78 3 


188 RCL 11 


33 ’EFPO KNOWN?* 


71 m 


189 RCL 12 


34 PROMPT 


72 * 


118 * 


35 X>8? 


73 558 


111 2 


36 GTO 82 


74 / 


112 * 


37 XEQ ’EPPS’ 


73 STO 28 


113 / 


38+LBL *BD* 


76 GTO *PT FB* 


114 SORT 
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115 STO 28 


153 + 


191 STO 44 


1 16*181 “PI Fit* 


154 STO 22 


192 Xt2 


117 RCL 25 


155+LBL *TR’ 


193 RCL IS 


118 m 


156 RCL 36 


1*4 * 


119 RCL 28 


157 1888 


195 RCL 43 


128 m 


158 / 


196 4 


121 / 


159 SORT 


197 RCL 41 


122 2 


168 1,3 


198 XOV 


123 / 


161 * 


199 / 


124 CHS 


162 STO 42 


288 STO 45 


125 RCL 25 


163 RCL 85 


281 2 


126 m 


164 + 


292 * 


127 RCL 28 


165 ,5 


283 SORT 


128 m 


166 * 


284 RCL 59 


129 2 


16? STO 48 


285 / 


138 * 


168 RCL 42 


296 CHS 


131 / 


169 RCL 81 


287 1 


132 m 


178 / 


298 t 


133 1 


171 STO 58 


289 STO 47 


134 + 


172 RCL 38 


218 RCL 41 


135 SORT 


173 558 


211 1.5 


136 + 


174 * 


212 YtX 


137 SORT 


175 RCL 88 


213 RCL 43 


138 RCL 28 


176 RCL 48 


214 RCL 11 


139 * 


177 * 


215 4 


148 RCL 36 


178 / 


216 2 


141 * 


179 STO 41 


217 4 


142 RCL 15 


188 RCL 4? 


218 SORT 


143 / 


181 Xt2 


219 / 


144 558 


182 P? 


228 RCL 47 


145 / 


183 4 


221 / 


146 STO 27 


184 STO 43 


222 558 


147 RTH 


185 4.5 


223 / 


1.48*L8L ’ P T FB* 


186 EHTERf 


224 STO 4? 


149 m ‘vr 


187 RCL 88 


225 RCL 59 


158 RCL 28 


188 * 


226 RCL 58 


151 * 


189 RCL 42 


227 - 


152 XEQ "PC FB- 


1*8 * 


228 RCL 42 
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22? PI 
239 * 

23! / 

232 STO 29 

233 RCL 44 
23“ 3 

235 YtX 

236 RCL 43 
23? * 

233 RCL !S 
233 * 

243 RCL 02 

241 * 

242 RCL 29 

243 * 

244 4408 

245 / 

246 STO 49 

247 RCL 40 

248 * 

249 STO 58 
258+L8L -TR2- 
25! RCL 25 

252 RCL 44 

253 / 

254 STO 51 

255 m 

256 4,3 

257 ■< 

258 3 

259 + 

268 RCL 49 
261 * 

262 STO 52 

263 RCL 22 

264 RCL 88 

265 RCL 48 

266 * 



28? / 

263 558 
269 * 

278 STO 53 
27! RCL 43 

272 RCL 1! 

273 * 

274 RCL 44 

275 Xt2 
2?6 * 

27? / 

273 STO 54 
2?9 2 
238 * 

23! SORT 
232 RCL 59 

283 / 

284 CHS 

285 ! 

286 + 

287 STO 55 

288 RCL 25 

289 Xt2 

298+LBL *VI<TR>* 
293 RCL 53 

292 RCL 1! 

293 RCL 43 

294 * 

295 2 

296 * 

297 / 

298 SORT 

299 STO 26 
388 Xt2 
38! / 

382 2 

383 / 

394 CHS 



385 RCL 25 

386 m 

387 RCL 26 

388 Xt2 
309 2 

338 * 

33! / 

332 Xt2 

333 ! 

334 * 

335 SORT 

336 4 

337 SORT 
318 RCL 26 

339 * 

328 RCL 53 
323 * 

322 558 

323 / 

324 RCL 55 

325 / 

326 STO 56 

327 RCL 22 

328 t 

32? RCL 52 

338 t 

333 XEQ “PCOHP* 

332 + 

333 STO 63 

334 XEQ -ESHP- 

335 STO 63 

336 m 

337 flBV 

338 ISO 99 

339 GTO 81 

340 BEEP 
343 STOP 
342 EHD 
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B. PTOT (ABBREVIATED) LISTING 



81*LBL “PTOT* 

92 SF 83 
83+L8L 03 
04 FIX 2 
95 “FHB VEL?” 

86 PROMPT 

97 , 59248 

98 / 

99 STO 25 

18 3 

n m 

12 FgP 95 

13 GTO 94 

S4 KE8 “RHO- 
15 F$p 82 
lb GTO 84 
17 "OR TR=?" 

13 PROMPT 

19 STO 81 

28 -M0.TR 8LS‘- 

21 PROMPT 

22 STO 59 

23 “CdO TR=?“ 

24 PROMPT 

25 STO 82 

26 SF 02 

27 “EFPQ KNOWN?* 

28 PROMPT 

29 X)0? 

39 GTO 82 

3f XEO “EF&q* 
32*1 BL “MI- 
33 GTO 84 
34*LBL 82 

35 “EFPP=?“ 

36 PROMPT 



73 * 



74 


STO 


24 


75 


PTH 




76*LBL 


“MU 


77 


RCL 


25 


73 


RCL 


13 


79 


./ 




88 


RTN 




8!*LBL 


"Vi 


82 


RCL 


36 


33 


RCL 


11 


84 


RCL 


12 


35 


* 




36 


2 




37 


* 




33 


/ 




39 


SORT 


98 


STO 


26 


9i*L8L 


“PI 


92 


RCL 


25 


93 


Xt2 




94 


RCL 


29 


95 


Xt2 




96 


/ 




97 


2 




93 


/ 




99 


CHS 




188 


RCL 


25 


131 


Xt2 




192 


RCL 


26 


103 


Xt2 




104 


2 




135 


* 




106 


/ 




137 


Xt2 




183 


1 





37 STO 64 

38*LBL 94 

39 RCL 64 

40 RCL 11 

41 * 

42 .5 

43 * 

44 RCL 25 

45 3 

46 m 

47 * 

43 550 

49 / 

58 STO 23 

51 GTO “PT ! 

52*LBL *P0 

53 RCL 13 

54 3 

55 m 

56 RCL 12 

57 * 

53 RCL 11 

59 * 

63 RCL 07 

61 * 

62 RCL 19 

S3 * 

64 4498 

65 / 

66 STO 21 

67 XE9 "MU' 

63 Xt2 

69 4,3 

78 * 

71 1 

72 * 
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m + 


145 RCL 81 


18! / 


118 SORT 


146 / 


182 CHS 


ill + 


147 STO 58 


183 ! 


112 SORT 


148 RCL 39 


184 + 


113 RCL 20 


149 558 


185 STO 47 


114 * 


158 * 


186 RCL 4! 


115 RCL 36 


151 RCL 08 


187 1,5 


116 4 


152 RCL 40 


188 YtX 


117 RCL 15 


153 ? 


189 RCL 43 


118 / 


154 / 


199 RCL 11 


119 550 


155 STO 41 


!9i 4 


128 / 


156 RCL 42 


192 2 


121 STO 27 


157 m 


193 * 


122 RTH 


158 PI 


194 SORT 


123*181 "PT FI*" 


159 * 


195 / 


124 XEfi "VI- 


168 STO 43 


196 RCL 47 


125 RCL 28 


161 4,5 


197 / 


126 * 


162 ENTERt 


198 558 


127 XE0 "PO FB“ 


163 RCL 88 


199 / 


128 + 


164 * 


288 STO 4ft 


129 STO 22 


165 RCL 42 


281 RCL 59 


130*181 "TR" 


166 * 


282 RCL 58 


131 FIX 2 


167 STO 44 


283 * 


132 RCL 36 


168 Xt2 


204 RCL 42 


133 1060 


169 RCL 11 


295 FI 


134 / 


178 * 


286 * 


135 SORT 


171 RCL 43 


287 / 


136 1.3 


172 * 


298 STO 29 


137 * 


173 RCL 41 


289 RCL 44 


138 STO 42 


{74 ROY 


218 3 


139 RCL 05 


175 / 


2ii m 


140 t 


176 STO 45 


212 RCL 43 


HI .5 


177 2 


213 * 


142 + 


178 * 


214 RCL 11 


143 STO 40 


179 SORT 


215 4 


144 RCL 42 


188 RCL 59 


216 RCL 92 
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21 ? * 

253 RCL 29 
219 * 

223 4489 
221 / 

222 STO 49 

223 RCL 48 

224 + 

225 STO 53 
226+L8L *TR2" 
227 RCL 25 
223 RCL 44 
229 / 

238 STO 51 

231 Xt2 

232 4.3 

233 * 

234 1 

235 + 

236 RCL 43 

237 * 

233 STO 52 

239 RCL 22 
248 RCL 88 

241 RCL 48 

242 * 

243 / 

244 558 

245 * 

246 STO 53 

247 RCL 43 

248 RCL 11 
248 * 

258 RCL 44 

251 m 

252 * 



253 / 

254 STO 54 

255 2 

256 * 

25? SORT 

258 RCL 59 

259 / 

268 CHS 
261 1 
262 + 

263 STO 55 

264 RCL 25 

265 m 

266+L8L "VI<TR>“ 
26? RCL 53 

268 RCL 11 

269 RCL 43 
278 * 

271 2 

272 * 

273 / 

274 SORT 

275 STO 26 

2?6 m 

27? / 

278 2 

279 / 

288 CHS 
231 RCL 25 
282 X*2 
233 RCL 26 
284 Xt2 
235 2 

286 * 

28? / 

238 XT2 



289 1 
298 + 

291 SSRT 

292 + 

293 SORT 

294 RCL 26 

295 * 

296 RCL 53 

297 * 

298 558 

299 / 

388 RCL 55 

381 / 

382 STO 56 

383 RCL 22 

384 t 

385 RCL 52 

386 + 

38? XEQ -PCOMP- 

388 + 

389 STO 63 
318 m 'ESHP* 

311 STO 63 

312 ’ESHP=" 

313 flRCL X 

314 8VIEH 

315 STOP 

316 GTO 83 
31? m 



63 



c. PTOT (FULL DISPLAY) LISTING 





44 ,5 


87*LBL "V!" 


3 i +LBL "PTOT 3 


45 * 


88 RCL 36 


92 SF 83 


46 RCL 25 


89 RCL 11 


93*L8L 93 


47 3 


98 RCL 12 


34 FIX 2 


4ft YtX 


91 * 


05 IfflV 


49 * 


92 2 


06 m 


58 558 


93 * 


0? *FHB VEL='" 


51 / 


94 / 


00 PROMPT 


52 STO 28 


95 SORT 


09 FSP 55 


53 GTO “PT FB" 


% STO 28 


is m 


54*181 "PO FB* 


97*LBL ’PI FB’ 


11 , 59248 


55 RCL 13 


98 RCL 25 


12 / 


56 3 


99 Xt2 


13 STQ 25 


57 YtX 


100 RCL 28 


14 3 


58 RCL 12 


lei m 


15 YtX 


59 * 


192 / 


16 m "RHO" 


68 RCL 11 


103 2 


17 PS? 02 


61 * 


104 / 


IP GTO 04 


62 RCL 0? 


105 CHS 


19 *mR TR= 5 ’ 


63 * 


106 RCL 25 


20 PROMPT 


64 RCL 19 


19? Xt2 


21 STO 01 


65 * 


198 RCL 28 


2? -HO. TR BIBS' 5 " 


66 4400 


189 Xt2 


23 PROMPT 


67 / 


110 2 


24 STO 59 


68 STO 21 


111 * 


25 "CdO TR- 5 ’ 


69 XEQ "HU" 


112 / 


26 PROMPT 


70 Xt2 


113 Xt2 


27 STO 92 


71 4,3 


114 1 


28 SF 92 


72 * 


115 * 


29 "FFPfl KHUMH?” 


73 1 


H6 SORT 


38 PROMPT 


74 * 


117 t 


31 X>8? 


75 * 


118 SORT 


32 GTO 92 


76 STO 24 


119 RCL 20 


33 XEQ "EFPfi" 


77 -PO FB=* 


128 * 


34+LBL "Mi- 


78 9RCL X 


121 RCL 36 


ls GTO 84 


79 AVI EH 


122 * 


36+LBL 82 


88 STOP 


123 RCL 15 


37 -EF?Q=?- 


81 RTH 


124 / 


38 PROMPT 


32*LBL “HU" 


125 558 


39 STO 64 


83 RCL 25 


126 / 


40*LBl 84 


84 RCL 13 


127 STO 27 


RCL 64 


35 / 


128 RTH 


42 RCL 11 


86 PTH 


129*LBL "PT FB* 


43 * 
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1 Jv stW -Vi* 177 

131 "PI ?D=" 174 

132 PRCL X 175 

133 RVIEH 176 

134 STOP 177 

135 SCI 28 17 s 

136 'PP=“ 179 

137 PRCL X iftft 

138 PYIEM 131 

139 STOP 182 

148 + 187 

141 XEB *PQ FB“ 184 

1 4 2 + 185 

143 -FT FB=- 188 

144 P.RCL X 187 

145 PYIEH 183 

146 STO 22 189 

147 STOP 1 98 

148 RCL 25 191 

149 RCL 13 19? 

158 * 197 

151 401.3 194 

152 EHTEPt 191 

153 RCL IS 196 

154 * J97 

155 S 8 RT 198 

156 =3048 199 

15? / 200 

158 / 201 

159 *HCH HR=“ ?a? 

160 PRCL X 283 

161 flVIEH ?04 

162 STO 37 ?ai 

163 STOP ?flfi 

164*L8L *TR* ?fl? 

165 FIX 2 208 

166 RCL 36 20P 

167 1808 2 i 0 

168 / 211 

169 SORT 212 

170 1.3 213 

171 * ?14 

172 STO 4? 215 



RCL 85 


216 CHS 


+ 


217 l 


.5 


218 * 


+ 


219 STO 47 


STO 40 


220. RCL 41 


RCL 42 


221 1.5 


RCL 01 


222 vtx 


/ 


223 RCL 43 


STO 58 


224 RCL 11 


RCL 30 


225 * 


550 


226 2 


* 


227 * 


RCL 68 


228 SORT 


RCL 40 


229 / 


* 


239 RCL 4? 


/ 


231 / 


STO 41 


232 558 


RCL 42 


233 / 


Xt2 


234 STO 48 


PI 


235 RCL 59 


* 


236 RCL 58 


STO 47 


237 * 


4.5 


238 RCL 42 


EHTERf 


239 PI 


RCL 88 


240 * 


* 


241 / 


RCL 42 


242 STO 29 


* 


?43 RCL 44 


STO 44 


244 3 


Xt2 


245 m 


RCL 11 


246 RCL 43 


i 


247 * 


RCL 43 


248 RCL 11 


* 


249 * 


RCL 41 


258 RCL 92 


XOY 


251 * 


/ 


252 RCL 29 


STO 45 


253 * 


2 


?54 4400 


* 


255 / 


SORT 


256 STO 49 


RCL 59 


257 RCL 48 


/ 


258 + 
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259 STD 56 


302 RCL 11 


345 * 


260+LBL -TR2“ 


333 RCL 43 


346 SORT 


261 RCL 25 


304 * 


347 .3848 


262 RCL “4 


385 2 


348 / 


265 / 


306 * 


349 / 


264 STO 51 


387 / 


356 STO 60 


265 Xt2 


308 SORT 


35! *HCH TR=” 


266 4,3 


389 STO 26 


352 ORCL X 


26? * 


310 Xt2 


353 OVIEM 


268 1 


311 / 


354 STOP 


269 * 


312 2 


355 RCL 56 


270 RCL 4-9 


313 / 


356 *PI TRF=* 


271 * 


314 CHS 


357 ORCL X 


272 STO 52 


315 RCL 25 


358 OV I EH 


273 RCL 22 


316 Xt2 


359 STOP 


274 RCL 98 


317 RCL 26 


368 RCL 52 


275 RCL 40 


313 Xt2 


361 *PO TRF=“ 


276 * 


319 2 


362 ORCL X 


277 / 


320 * 


363 MV I EH 


273 556 


321 / 


364 STOP 


279 * 


322 X + 2 


365 RCL 57 


280 STO 53 


323 1 


366 *PT TRF=" 


281 RCL 43 


324 + 


36? ORCL X 


232 RCL 11 


325 SORT 


368 PVIEH 


233 * 


326 + 


369 STOP 


284 RCL 44 


327 SORT 


370 RCL 22 


235 m 


323 RCL 26 


37! + 


286 * 


329 * 


372 “PTOT=° 


237 / 


330 RCL 53 


373 ORCL X 


233 STO 54 


331 * 


374 OVIEH 


239 2 


332 550 


375 STO 63 


290 * 


333 / 


376 STOP 


291 SORT 


334 RCL 55 


377 m “PCOHP 


292 RCL 59 


335 / 


378 ST+ 63 


293 / 


336 STO 56 


379 XEQ “ESHP" 


294 CHS 


337 RCL 52 


388 “ESHP=“ 


295 1 


338 + 


381 ORCL X 


296 4 


339 STO 57 


332 OVIEH 


297 STO 55 


348 RCL 25 


383 STOP 


293 RCL 25 


34! RCL 44 


384 CTO 03 


299 m 


342 + 


385 END 


380+LBL “V!<TR>* 


343 RCL 18 




301 RCL 53 


344 401.8 
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PCOMP (POWER REQUIRED DUE TO COMPRESSIBILITY EFFECTS) 



1. PURPOSE 

This subroutine is used in the main program, PTOT. It 
computes the additional horsepower necessary due to the 
compressibility effects from the main rotor. 

2. EQUATIONS 

M(tip mr)= (V(tip mr) + V(fwd mr) ) / 

(gamma * g * R * T)**.5 

MD= M(tip mr) - M(crit) - 0.06 

P(COMP)= rho * A(mr) * V(tip mr)**3 * sigma (mr) * 

(0.012 * MD + 0.01 * MD* *3 ) 

where : 

V(fwd) is the forward velocity in knots. 

V(tip) is the main rotor tip velocity. 

M(crit) is the critical mach number (a good approximation 
is . 65) . 

DISCUSSION: The horsepower required due to compressibility 

effects does not become a positive value until a certain 
forward velocity is attained. By providing a check for nega- 
tive MD, only positive values of PCOMP are stored in Register 
63 (R63) . When run independent of the main program, MD is 
displayed if the value is negative. PCOMP is displayed and 
stored in R63 otherwise. When run in conjunction with PTOT, 
MD and PCOMP are not displayed. PCOMP is computed and added 
to the total power computed in PTOT. 
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3. FLOWCHART (PCOMP) 
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EXAMPLE PROBLEM AND USER INSTRUCTIONS: 



4 . 



A) Compute the horsepower required due to compressibility 



effects at 20 knots forward velocity, 0 


PA, and 15 deg C. 


Register 25 contains the value, 


in ft per sec, of 


forward velocity. Register 11 contains 


the density altitude 



(rho). To execute PCOMP independent of the main program, the 
desired forward velocity must be converted to units of ft/sec 
and stored into Register 25. The subroutine "rho" must be 



executed to insure the correct value of 
Register 11. 


density is stored in 


KEYSTROKES 


DISPLAY 


20 enter 


20. GO- 


0.59248 / 


33. 76 


sto 25 


33.76 


XEQ (alpha) RHO (alpha) 


PA=? 


0 (r/s) 


TEMP C=? 


15 (r/s) 


2.38 -03 


XEQ (alpha) PCOMP (alpha) 


-0.03 



DISCUSSION: At 20 knots, the compressibility factor is 
negative, therefore there is no extra horsepower needed due 
to compressibility effects. The value of MD is displayed. 

B) Compute the horsepower required due to compressibility 
effects at 160 knots forward airspeed, 4000 ft pa, 35 deg C. 



KEYSTROKES 


DISPLAY 


160 enter 


160 


0.59248 / 


270.05 


STO 25 


270.05 


XEQ (alpha) RHO (alpha) 


PA=? 


4000 (r/s) 


TEMP C=? 


35 (r/s) 


1.92 


XEQ (alpha) PCOMP (alpha) 


418.48 



DISCUSSION: At a forward velocity of 160 knots at 4000 

ft PA and 35 deg C, an additional power requirement of 418.48 
horsepower results due to compressibility effects from the 
main rotor. This value is stored in Register 63 and will be 
added to other power requirements in the main program. 
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5. PROGRAM LISTING 



SULBL -PCOMP" 

02 RCL 25 

03 RCL 13 

£ k .. 

06 *01. 3 
0 ? * 

00 SQRT 
03 / 

10 .3848 
IS * 

12 3T0 37 

13 RCL 83 
H - 

15 .86 

16 - 

17 X<8? 

18 CTO 81 
13 RIO 46 
28 3 

21 m 

22 .1 

23 * 

24 ,812 

25 EHTERt 

26 RCL 46 

27 * 

28 + 

23 RCL 19 
38 * 

3! RCL 13 

32 3 

33 m 

34 * 

35 RCL 12 

36 * 

37 RCL 1! 

38 * 

39 350 
48 / 

41 STO 63 
42 i LBL 81 
43 END 



76 



ESHP (EQUIVALENT SHAFT HORSEPOWER) 



1. PURPOSE 

This subroutine is used in the main program PTOT. It 
computes the engine shaft horsepower required. The ESHP is 
equivalent to the rotor shaft horsepower (PTOT + PCOMP) 
adjusted for transmission and accessory losses. In addition, 
a 10 percent shaft horsepower loss is computed for every 
additional engine installed. 

2. EQUATIONS 

ESHP= (0.10 * RSHP * (N-l) + 1.03 * RSHP + 10.0 HP 
where : 

N is the number of engines installed. 

10.0 hp is the approximate horsepower required due to 
accessory usage. 

RSHP is the rotor shaft horsepower (PTOT + PCOMP) . 
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3. FLOWCHART (ESHP) 
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4. EXAMPLE PROBLEM AND USER INSTRUCTIONS 

Compute the engine shaft horsepower required for a heli- 
copter with two engines having a RSHP of 1500 hp. 

KEYSTROKES DISPLAY 

1500 STO 63 1500 

CF 05 1500 

XEQ (alpha) ESHP (alpha) NO. ENGS=? 

2 (r/s) 1705.00 

DISCUSSION: A helicopter with a RSHP of 1500 hp will 

require 205 additional horsepower due to transmission and 
accessory losses, as well as a 10 percent SHP loss due to 
an additional engine. To execute this subroutine independently 
of the main program, a value for RSHP must be known and 
stored in R63. Flag 05 must be cleared for the prompt "NO. 
ENGS=? " to be viewed. 

5 . PROGRAM LISTING 



8HLBL "ESHP" 


| -j 


nr-; ci 
Kl- L b •-= 


82 F8 ? 95 


13 


± 


R2 f;]H h! 


4 i 

i H 


, i 


94 "HO. EHGS-?" 


i q 


* 


05 PR0HP7 


16 


RCL 63 


06 STO 67 


17 


1,83 


a 7 cc a=. 


18 


k 


5?* -M -j-j 






98*LSL 01 


19 


+ 


m h? 


29 


18 


1 S i 


21 


4- 


it’ i 






1 f - 


•:«? 


end 
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FM (FIGURE OF MERIT) 



1 . PURPOSE 

This subroutine is used in the main program PHV (Power 
to Hover) . It computes the Figure of Merit which is the 
ratio of induced power (Pi ) , to the total power (Pt) , of 
the main rotor. A computer value of between 0.7 and 0.8 is 
acceptable. 



2 . EQUATIONS 

FM= (100 - ((Pt(mr ige) - Pi (mr oge) ) / Pi (mr oge) ) 

* 100 ) * .01 

where : 

Pt(mr ige) is the total power required to hover in ground 
effect for the main rotor (stored in R30) . 

Pi (mr oge) is the induced power required out of ground 
effect for the main rotor (stored in R16) . 
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3. FLOWCHART (FM) 
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4. 



EXAMPLE PROBLEM AND USER INSTRUCTIONS:' 



A) Compute the Figure of Merit of a helicopter which 
has Pi (mr oge) of 1000 hp and a Pt(mr ige) of 1500 hp . 



KEYSTROKES 


DISPLAY 


1000 STO 16 


1000 


1500 STO 30 


1500 


XEQ (alpha) FM (alpha) 


FIG MER=0 . 50 


(r/s) 


FM OK? 


0 (r/s) 


FM HIGH? 



0 (r/s) (program transfers to subroutine "RV") 

B) Compute the Figure of Merit for a helicopter with a 
Pi (mr oge) of 1250 hp and a Pt(mr ige) of 1400 hp. 



KEYSTROKES 


DISPLAY 


1250 STO 16 


1250 


1400 STO 30 


1400 


XEQ (alpha) FM (alpha) 


FIG MER=0 . 88 


(r/s) 


FM OK? 


0 (r/s) 


FM HIGH? 



1 (r/s) (program transfers to subroutine ( CHD " ) 

C) Compute the Figure of Merit for a helicopter with 



a Pi (mr oge) of 1200 hp and a 


Pt(mr ige) of 1500 hp . 


KEYSTROKES 


DISPLAY 


1200 STO 16 


1200 


1500 STO 30 


1500 
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XEQ (alpha) FM (alpha) 
(r/s) 



FIG MER=0 . 75 



FM OK? 

1 (r/s) (If flag 04 is set, the user is prompted 

"clr MR, PHV , FM, CHD , RV, input PTOT, 

PCOMP , ESHP." If flag 04 is not set, 
the program transfers to the "WT" 
program and the first empty weight 
approximation is displayed.) 

DISCUSSION: To run this subroutine independently of the 

main program "PHV," the values for Pi (mr oge) and Pt(mr ige) 
must be inputted manually into their appropriate registers. 

In the first example, the Figure of Merit was computed to be 
0.50, well below the minimum acceptable value of 0.70. The 
subroutine "RV" was therefore executed (this subroutine 
enables the user to increase the FM value) . In the second 
example, the Figure of Merit was higher than the acceptable 
value of 0.80 and the subroutine "CHD" was executed (this 
subroutine enables the user to decrease the FM value). In the 
third example, the Figure of Merit was within the specified 
limits. When executing "FM" as part of the main program, if 
the "WT" program has not been executed (flag 04 has not been 
set) , then the program automatically transfers to "WT" and 
displays the first approximation for the aircraft empty weight 
(.6 * spec, wt) . If, however, flag 04 is set, the user is 
instructed to clear from program memory the programs that are 
no longer needed and to input three additional programs. 
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5. PROGRAM LISTING 



81+LBL *FH“ 


22 GTO 81 


02 FIX 2 


23 m -«t- 


83 PCI IF 


24»LBL 91 


U EHTERf 


25 -CLR HR, F'HV, FM- 


95 RCL 30 


26 -K. CHS, RV- 


0F *CH 


27 PROMPT 


07 188 


28 "F INPUT PTOT, PC- 


88 XOV 


29 -POMP, ESHP, “ 


89 - 


38 PROMPT 


18 .81 


31 GTO 04 


11 * 


32+L8L 92 


12 "FIS HFp=" 


33 -FH HIGH?" 


13 8RCL X 


34 PROMPT 


14 QVIEH 


35 X>8? 


15 FIX 4 


36 GTO 83 


16 STOP 


37 XE8 -RV- 


1? ’FH OK?" 


38*181 03 


18 PROMPT 


39 XES -CHB- 


19 X=87 


40*L8L 84 


28 GTO 82 


41 END 


2! F$? 84 
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CHD (CHORD) 



1. PURPOSE 

This subroutine is called up in the "FM" program. It 
is designed to reduce the value computed for the Figure of 
Merit. When executed, the former chord value is displayed 
momentarily. The user must input a larger value of chord 
length. This larger chord will increase the solidity, 
decrease the blade loading and decrease the aspect ratio. 
Once these values have been computed and stored in their 
appropriate registers, the program transfers to the "MR" 
program and immediately displays the values for DL, RV, CT, 
SD, c, AR, and CL. Program execution continues as before. 

A new Figure of Merit will be displayed. Proceed as before, 
depending on this value. 

2 . EQUATIONS 

SD=(c * b) / (PI * R) 

BL=CT / SD 
AR=R / C 

where : 

SD is the solidity, 
c is the chord. 

b is the number of main rotor blades . 

R is the radius of the main rotor. 

CT is the coefficient of thrust (main rotor) . 

AR is the aspect ratio. 
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3. 



FLOWCHART (None) 



4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS: 

This subroutine can only be used in conjunction with 
several main programs. See "PHV" for example problems 
involving this subroutine. 

5. PROGRAM LISTING 



81 *LBL 

n pcl ** 

83 *CH=* 

84 mi X 

85 PVIEs 
% PSE 

87 -m CB=?” 

88 PPOflPT 

89 ST 0 04 
18 Sf:L 88 
11 * 

13 PCI 85 
13 ENTERt 
id pi 

15 -4 

16 / 

17 $70 19 

18 PCI 14 

19 XOV 
28 / 

21 ”81=' 

22 QRCL X 

23 WIEM 

24 STOP 

25 PCI 85 
28 PCI 84 

27 / 

28 $70 32 

29 570 
38 EHB 
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RV (ROTATIONAL VELOCITY) 



1. PURPOSE 

This subroutine is called up in the "FM" program. It 
is designed to increase the computed Figure of Merit values. 
When executed, the former tip velocity is displayed momentar- 
ily. The user is then instructed to input a new value for 
V(tip). This value must be lower than the former value. The 
program then calculates new values for RV, BL, CT, SD, c, AR, 
and CL using the new V(tip). The program automatically 
transfers to "MR" and displays DL and the above values. 

Program execution continues as before. A new Figure of Merit 
will be displayed. Proceed as before, depending on the value. 
The user should be aware that a dramatic reduction in V(tip) 
is required to increase the Figure of Merit. 

2 . EQUATIONS 
RV= V ( tip) / R 

BL= -0.16667 * ( (V) max fwd) / 0.59248) / V(tip)) 

+ .15515 

CT= GW / (A * rho * V (tip) **2) 

SD= CT / BL 

c= (SD * PI * R(mr) ) / b(mr) 

AR= R(mr) / c(mr) 

CL= (.6.0 * CT) / SD 
where : 

GW is the gross weight. 

R(mr) is the radius of the main rotor. 
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V(tip) is the maximum tip velocity of the main rotor. 

RV is the rotational velocity of the main rotor. 

CT is the coefficient of thrust of the main rotor, 
rho is the density. 

SD is the solidity. 

3L is the blade loading, 
b is the number of main rotor blades, 
c is the chord. 

AR is the aspect ratio. 

CL is the coefficient of lift. 

3. FLOWCHART (None) 

4. EXAMPLE PROBLEM AND USER INSTRUCTIONS: 

This subroutine can only be used in conjunction with 
several main programs. See "PHV" for example problems 
involving this subroutine. 
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5. PROGRAM LISTING 



8i*L8L *RV* 

92 RCL 13 

93 *VTIP=” 

94 QRCL X 

85 qviEH 

98 PSE 

97 -HEH VTIP—" 
93 PPOHPT 

99 STO 13 

18 RCL 85 
!1 / 

12 STO 98 

13 RCL 23 
H RCL 13 

15 / 

16 .166667 

17 CHS 

18 * 

19 .15515 
29 + 

21 "BL=‘ 

22 QRCL X 

23 QVIEH 

24 STOP 

25 RCL 12 

26 RCL 11 

27 * 

28 RCL 13 

29 m 



39 * 

31 RCL 36 

32 XOV 

33 / 

34 STO H 

35 XOV 

36 / 

37 STO 19 

38 PI 

39 * 

49 RCL 95 

41 * 

42 RCL 06 

43 / 

44 STO 04 

45 RCL 95 

46 XOV 

47 / 

48 STO 32 

49 RCL 14 
58 6 

51 * 

52 RCL 19 

53 / 

54 STO 33 

55 RCL 31 

56 GTO ■RR“ 

57 EHD 
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EFPA (EFFECTIVE FLAT PLATE AREA) 



1. PURPOSE 

This program determines the effective flat plate area of 
a design helicopter as a function of the following parameters: 
gross weight, clean- or dirty lines, skid, fixed wheel, or 
retractable type landing gear. The formula used in the 
determination of the EFPA is: 

EFPA = (A) * (GW) **.66667 where the coefficient (A) is 

determined as shown below. 





SKID 


FIXED 


RETRACTABLE 


CLEAN CONFIGURATION 


.032 


.037 


.027 


DIRTY CONFIGURATION 


.050 


. 056 


.046 



These figures were computed through an iterative procedure 
of comparing the known EFPA values of production aircraft 
and their gross weights to values computed with the above 
formula. A degree of accuracy to within 10% can be achieved 
using these coefficients. It is left to the user to determine 
if his design is clean or dirty (i.e., is the design stream- 
lined or does it contain numerous wing stores, flat plate 
canopy , etc . ) . 

2. EQUATIONS (See above) 
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3. FLOWCHART (EFPA) 
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4. 



EXAMPLE PROBLEMS AND USER INSTRUCTIONS: 



A) Determine the effective flat plate area of a heli- 
copter with the following specifications: 

Configuration: Dirty 

Gross Weight: 14500 lbs 

Landing Gear: Fixed wheel 

Note: To run EFPA independent of the main program, the 

desired gross weight must be inputted manually into Register 
36. This is done automatically when execution of the main 



program is 


performed. 




KEYSTROKES 




DISPLAY 


14500 STO 


36 


14500 


XEQ (alpha) 


EFPA (alpha) 


CLEAN? 


0 


(r/s) 


SKID? 


0 


(r/s) 


FIX WHEEL? 


1 


(r/s) 


EFPA=33 . 3 



The above specifications were from the AAH-64 Attack 
Helicopter whose actual EFPA is 33 sq ft. The computed EFPA 
differs by .9%. 

B) Determine the EFPA of a helicopter with the following 
specifications : 

Configuration: Clean 

Gross Weight: 2150 lbs 

Landing Gear: Skid 
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KEYSTROKES DISPLAY 

2150 STO 36 2150 

XEQ (alpha) EFPA (alpha) CLEAN? 

1 (r/s) SKID? 

1 (r/s) EFPA=5 . 33 



Again, the above specifications represent a production 
aircraft, the OH6A, whose actual EFPA is 5.4 sq ft. The 
computed value differs by 1.3%. 



5 . PROGRAM LISTING 



8I+L8L ’EPQ“ 


26 .927 

27 GTO 18 


02 mx 2 


28*181 82 


03 ’CLEfiH?" 


28 .858 


84 PROMPT 


38 GTO 18 


05 m-> 


31*LBL 03 


06 GTO 81 


32 ,856 


07 ■SKIS' 5 ' 


33 GTO 18 


08 PROMPT 


34*181 84 


00 X>8? 


35 .832 


10 m 02 


36 GTO 18 


1! 'FIX HHEEL>“ 


37*LBL 85 


12 PROMPT 


38 ,837 


13 X>8? 


38*LBL 18 


14 QTO 83 


48 RCL 36 


15 ,848 


41 .66667 


16 GTO 18 


42 Y*X 


17*181 01 


43 * 


18 -SKIS' 5 ' 


44 “EFPfl=' 


18 PROMPT 


45 HRCL X 


20 X>0? 


46 ay I EH 


21 GTO 04 


47 STO 64 


22 'FIX WHEEL?' 


48 STOP 


23 PROMPT 


40 GTO *BB 


sd mi 


50 ENB 


25 GTO 85 
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DENSITY (RHO) 



1. PURPOSE 

This program computes the density of the air at a 
specified pressure altitude and temperature. In so doing, 
the program automatically calculates, but does not display, 
the density altitude and stores this value in Register ten. 
The equation used for this calculation is based upon the 
standard ICAO atmosphere and is accurate to an altitude of 
36,089 ft. 

2 . EQUATIONS 

RHO= RHO ( SSL) * (1 - (K) * (H) ) **4.2561 
where : 

RHO (SSL) is the density of the air at standard sea 

level which is equal to 0.0023769 (lb sec**2/ft**4) . 

K= 6.875 * 10**-6 

H= density altitude (ft) 
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3. FLOWCHART (RHO) 






START 



1 


f 


PROMPT FOR PA A TFMP C 
COMPUTE DA STO RIO 


y 


1 


20MPUTE 4 DISPLAY RHO 
STO Rll 


1 


f 



STOP 
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4. EXAMPLE PROBLEM AND USER INSTRUCTIONS: 

Find the density and density altitude when the pressure 
altitude is 0.0 ft and the temperature is 15 deg. C. 



KEYSTROKES 
XEQ (alpha) 
0 

15 



RHO (alpha) 
(r/s) 

(r/s) 



DISPLAY 

PA=? 

TEMP C=? 
2.38 -03 



To find the density altitude simply recall Register 10 
(-1.19) . 



5. PROGRAM LISTING 



0ULBL “RHO" 

82 “PP= 7 " 

83 PROMPT 

84 6.375 £-36 

85 - 

86 CHS 
3? 1 
38 + 

89 5.256! 

18 YtX 

! ! "TEMP C= 7 " 

12 PROMPT 

13 273,15 

14 * 

15 STO 18 

16 / 

1.7 288,16 
18 * 

19 ,234% 



23 m 

21 CHS 

22 ! 

23 + 

24 6.875 £-86 

25 / 

26 STO 18 

27 6.875 £-86 

28 * 

29 CHS 
38 1 

31 + 

32 ENTER* 

33 4,2561 

34 m 

35 .8823769 

36 * 

37 STO 11 

38 END 
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REGISTER FILE 



REGISTER NUMBER 



-INFORMATION IN REGISTER 



00 Landing Gear Information 

01 Aspect Ratio (tr) 

02 Cao (tr) 

03 Mach Crit 

04 Chord Main Rotor (c) 

05 Radius Main Rotor (r) 

06 # main rotor blades (b) 

07 Cdo (mr) 

08 Rotational Vel mr (rv) 

09 Control # (printer) 

10 Density Altitude (da) 

11 RHO 

12 Area mr (A) 

13 Tip Velocity (Vt) 

14 Coeff of Thrust mr (CT) 

15 Tip Loss Factor mr (B) 

16 Pi (oge) mr 

17 H/D 

18 Temperature (c to k) 

19 Solidity mr (SD) 

20 Induced Vel hover (Vi) 
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21 

22 

23 

24 

25 

26 

27 

28 

29 ' 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 



■Profile Power hover (Po) 
•Total Power mr fwd (Pt fwd) 
•Max Fwd Vel 

•Profile Power fwd (Po mr) 
■Forward Velocity (Vf) 
•Induced tr Vel (portion) 
•Induced Power (mr fwd) 
•Parasite Power (Pp) 
■Solidity (tr) 

•Total Power (mr oge) 

•Disk Loading (DL) 

•Aspect Radio (AR) 
•Coefficient of Lift (CL) 
•Total Power (mr ige) 

•Empty Weight (WE) 

■Gross Weight (GW) 

•Tip Mach # (mr) 

•Induced Power (mr ige) 

•Max GW (specification) 
•Length of Tail (L tr) 
•Thrust of tr 
•Radius of tr (R) 

•Area of tr (A) 

•Tip Vel tr (Vt) 

•Coeff of Thrust tr (CT) 

•MD 
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47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 



Tip Loss Factor tr (B) 
•Pi(tl-tr) hover SSL oge 
Po(tr) hover SSL oge 
Pt(tr) hover SSL oge 
MU (tr) 

Profile Power (tr fwd) 
Thrust (tr fwd) 

CT (tr fwd) 

B (tr fwd) 

Pi (tl-tr-fwd) 

Pt (tr-fwd) 

•Chord tr (c) 

# tr Blades (b) 

•Tip Mach (tr) 

Pi total (mr+tr) 

Po total (mr+tr) 

•PTOT (mr+tr) 

EFPA 

Skid Gear Weight 
•Fixed Wheel Gear Wt 
No. of Engines 
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APPENDIX B 



EXAMPLE/PROGRAM VALIDATION PROBLEMS 

PRELIMINARY DESIGN OF A CARGO HELICOPTER 

The student is tasked to design a heavy cargo helicopter. 
A determination must be made as to the most practical type 
landing gear to be utilized in the design. The following 
specifications are provided: 



Maximum Allowable Gross Weight 


40,000 


lbs 


Maximum Rotor Diameter: 


76 


ft 


Maximum Velocity: 


180 


kts 


Useful Load: 


9000 


lbs 


Fuel Weight: 


4500 


lbs 


Height of Rotor Above the Ground: 


16 


ft 


Cdo Main Rotor: 


.01 




Cruise Velocity: 


150 


kts 


Tail Rotor Aspect Ratio (4.5 - 8.0): 


6.5 




Cdo Tail Rotor (1.25 Cdo mr<Cdo tr<l . 5 Cdo mr) : 


.0145 


No. of Tail Rotor Blades: 


4.0 




No. of Main Rotor Blades: 


6.0 




Critical Mach Number: 


.65 




Number of Landing Gear: 


4.0 




Number of Engines: 


2.0 





In an effort to eliminate unnecessary repetition, the 
user is advised to refer to the individual program summaries 



100 



for a more detailed description. Before proceeding further 
with this problem, the user must clear all flags and load MR, 
PHV , FM, CHD, RV, RHO, WT, and EFPA. 



KEYSTROKES 




DISPLAY 


XEQ (alpha) 


SIZE (alpha) 


SIZE 


068 




0.00 


XEQ (alpha) 


MR (alpha) 


Spec Wt=? 


40,000 


(r/s) 


R=? 


38 


(r/s) 


Mch Crit=? 


0.65 


(r/s) 


Vt max= 725.6 




(r/s) 


Vf max=? 


180 


(r/s) 


DL=7 .054 




(r/s) 


RV=19 .095 




(r/s) 


CT= .006 




(r/s) 


SD= .066 




(r/s) 


c= 1.97 




(r/s) 


AR= 19.28 




(r/s) 


CL= .512 




(r/s) 


R ok? 


1 


(r/s) 


No. MR Bids? 


6 


(r/s) 


Cdo mr=? 


0.01 


!r/s) 


Pth oge= 2900 




(r/s) 


H=? 


16 


(r/s) 


Pth ige= 2305 




(r/s) 


FIG MER= 0.73 




(r/s) 


FM OK? 
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1 



4500 

9000 

i 

1 

1 

38 

0.65 

180 



(r/s) 


WE= 24,000 


(r/s) 


Wb= 2516.35 


(r/s) 


Wh= 1492.98 


(r/s) 


Wp= 3479.66 


(r/s) 


Wf = 5040.00 


(r/s) 


Wc= 1440.00 


(r/s) 


We= 1440.00 


(r/s) 


Wq= 6720.00 


(r/s) 


WE 2= 22,128. 


(r/s) 


W FL? 


(r/s) 


USE LD? 


(r/s) 


SKID? 


(r/s) 


MR>2 bids? 


(r/s) 


TGW= 36,311.5 


(r/s) 


WT OK? 


(r/s) 


R=? 


(r/s) 


Mcb Crit=? 


(r/s) 


Vt Mx= 725.62 


(r/s) 


Vf Mx=? 


(r/s) 


DL= 8.004 


(r/s) 


RV= 19.095 


(r/s) 


CT= .006 


(r/s) 


SD= .075 


(r/s) 


c= 2.236 


(r/s) 


AR= 16.996 


(r/s) 


CL= .512 



102 





(r/s) 








R OK? 


1 


(r/s) 








NO MR bids? 


6 


(r/s) 








Cdo mr=? 


0.01 


(r/s) 








Pth oge= 3463 




(r/s) 








H=? 


16 


(r/s) 








Pth ige= 2743 




(r/s) 








FIG MER= 0.75 




(r/s) 








FM OK? 


1 


(r/s) 








Clr MR, PHV, FM, CHD, RV 




(r/s ) 








Input PTOT , PCOMP , ESHP 


XEQ (alpha) 


CLP (alpha) 








CLP- 


(alpha) 


MR (alpha) 








1.0 


Continue 


for PHV, FM, 


CHD, 


and 


RV. 


Input PCOMP and ESHP. 


If a printer 


is to be used 


, connect 


it 


after inputting the 


appropriate 


PTOT program. 


For 


this 


example, a printer will be 


used . 












XEQ (alpha) 


PTOT (alpha) 








INPUT CNT NO. 


0.18020 


(r/s) 








PA=? 


0 


(r/s) 








TEMP C=? 


15 


(r/s) 








AR tr=? 


6.5 


(r/s) 








No. tr Bids? 


4 


(r/s) 








Cdo tr=? 


0.0145 


(r/s) 








EFPA KNOWN? 


0 


(r/s) 








CLEAN? 


0 


(r/s) 








SKID? 
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1 


(rs) 


EFPA= 54.83 




(r/s) 


No. Engs=? 


2 


(r/s) 





For this example, the power requirements are applicable 
to standard sea level conditions (0 pa, 15 deg C) . The 
user may, of course, use any altitude. The aircraft, being 
of the cargo type, will probably not have clean lines. For 
this first iteration, a skid gear is used. Recall that the 
skid is used as a base for the fixed and retractable type 
gears. The control number (.18020) was selected because the 
maximum velocity of the aircraft is 180 knots and 20 knots 
is a suitable increment. Note how the printer outputs the 
power required at specific velocities. Once the printer 
signals the completion of the program, the user re-executes 
the "WT" program. 



XEQ (alpha) 


WT (alpha) 


W FL? 


4500 


(r/s) 


USE LD? 


9000 


(r/s) 


SKID? 


0 


(r/s) 


NO. LG? 


4 


(r/s) 


FX GR? 


1 


(r/s) 


T GW= 37209.57 




(r/s) 


INPUT CNT NO. 


0.18020 


(r/s) 


EFPA KNOWN? 


0 


(r/s) 


CLEAN? 


0 


(r/s) 


SKID? 
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0 


(r/s) 


FIX WHEEL? 


1 


(r/s) 


EFPA= 62.42 




(r/s) 


NO. ENGS=? 


2 


(r/s) 




The 


printer now. displays the power 


required from 0 to 


knots , 


incremented every 20 knots. 




XEQ (alpha) WT (alpha) 


W FL? 


4500 


(r/s) 


USE LD? 


9000 


(r/s) 


SKID? 


0 


(r/s) 


NO. LG? 


4 


(r/s) 


FX GR? 


0 


(r/s) 


T GW= 37464.62 




(r/s) 


INPUT CNT NO. 


0.18020 


(r/s) 


EFPA KNOWN? 


0 


(r/s) 


CLEAN? 


0 


( r/s ) 


SKID? 


0 


(r/s) 


FIX WHEEL? 


0 


(r/s) 


EFPA= 53.74 




(r/s) 


NO. ENGS=? 


2 


(r/s) 
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The printer now displays the power required for the air- 
craft with a retractable landing gear. 

SKID FIXED WHEEL RETRACTABLE GEAR 



y H T R i_ p O WER TOTAL P U WER TuTAL P U M c. R 



G«= 3 t. 3 ‘: :.51 
ffpq= 54 .S 3 



GH= 37289 . 5 ? 

EFPP=62.*2 



GH=37*64,62 
ECPfl=5 3.74 



VEL ( KNOTS) 
ESMP 



9 




4^4 / 




20 


*** 


3721 




40 




yfj.n ~i 


*** 


60 






XXX 


39 


tt‘4 


2817 


*** 


108 




3233 




129 




4813 


±?.± 


1 40 




5939 


f.±:% 


168 


xxx 


6374 


:|:xx 


188 


*** 


8053 


**» 



VEL < KNOTS) 
ESHP 



'0 




4376 




28 




3843 




40 




2943 


•fcxx 


68 


±** 


272? 


*** 


88 




2918 




180 


M* 


3419 




120 




4215 




140 




5324 




1 60 




6779 




188 


is? 


8622 


x$x 



VEL (KNOTS) 
ESHP 



8 


iii 


4413 


*** 


26 




yo( b 


±t± 


40 


xif 


2963 


£ :■£ x 


60. 




2724 


!? ™ ^ 


80 


xxx 


2880 


±$X 


189 


*** 


3328 




120 


.-%X± 


404? 




140 


iii 


5849 


zzi 


169 


i?z 


6362 


i?? 


i Ou 




8821 


±±x 
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From the above data, the user can readily see that, at a 
hover , The helicopter configured with the skid gear requires 
less power due to the gear's reduced weight. As forward 
speed increases, however, the effective flat plate area 
value (parasite drag) begins to affect power requirements. 

The skid configured aircraft always requires less power than 
the fixed wheel aircraft due to its lighter weight and 
smaller EFPA value. 

The benefits of the retractable gear's reduced drag versus 
the skid gear's lighter weight are not appreciated until the 
aircraft attains its designed cruise velocity of one hundred 
and fifty knots. Since the aircraft will certainly be flying 
at or below cruise velocity more than above this speed, it 
seems logical that a skid type gear should be employed in the 
design. This logic begins to lose its validity when it is 
understood that heavy cargo helicopters are often not capable 
of performing a hovering type take-off, as would be required 
with skid gear. 

The environment these aircraft operate in (heavy loads 
and oftentimes high density altitude) results in rolling 
take-offs being used to keep within engine and transmission 
limitations. The question of skid versus wheel type gear is 
therefore academic when heavy cargo helicopters are concerned. 

When comparing the fixed and retractable data, it is 
apparent that at approximately 60 knots the retractable 
geared aircraft begins to require less power even though that 



107 



aircraft is heavier by more than two hundred pounds! Since 
the helicopter will be flying at speeds much greater than 
sixty knots, the most advantageous landing gear is the 
retractable type. 

The landing gear data may be evaluated in graphical form 
by using the program "Myplot." The following is a graph of 
the preceding data. 
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The user might well want to know how much additional 
velocity could be attained by using the retractable type 
gear as opposed to the fixed wheel. From the data, 8622 hp 
is required to achieve the maximum forward velocity using 
the fixed wheel gear, 601 more horsepower than the helicopter 
with the retractable gear. If power is the limiting factor, 
it is a simple matter to convert the 601 excess hp into 



velocity . 






KEYSTROKES 




DISPLAY 


XEQ (alpha) 


PTOT (alpha) 


INPUT CNT N' 


180.19001 


(r/s) 


EFPA KNOWN? 


1 


(r/s) 


EFPA=? 


53.74 


(r/s) 





The printer computes the power required from 180 to 190 



knots in increments of 1 hp. 



TO TSL 



«;«= 






VEL -(KNOTS) 
ESHP 



POWER 


184 

8397 


:e x 






105 

i Vv 


iii 






8493 


pi 


5 4 


*** 


186 


*** 






859 i 








187 




180 


*** 


8699 




8020 


*** 


1 Op 
i ‘J ' j 


±±T. 


131 


*** 


8789 




8113 




100 
i U -• 




i « j ii 




8896 


±±t 


8207 




198 


ttt 


133 




OQQi 




3301 
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From the data, 8622 horsepower is required at approxi- 
mately 186.5 knots. By using the retractable gear, the 
maximum velocity has been increased by over five knots. 
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HUGHES AAH-64 DESIGN COMPARISON 



The following data is from the AAH- 


■64 helicopter: 


Specif ication weight: 


17,640 lbs 


Critical mach #: 


.65 


Fuel weight: 


1600 lbs 


Useful load: 


4351 lbs 


Max . f wd . ve 1 . 


155 knots 


Main rotor diameter: 


48 ft 


Cdo main rotor: 


.01 


Cdo tail rotor: 


.01 


No. main rotor blades: 


4 


No. tail rotor blades: 


4 


Conf igur ation : 


Dirty 


No. of engines 


2 


No. of landing gear: 


3 


Height of rotor above grd : 


12.59 ft 


Aspect ratio, tr 


5.53 



Using the above data and the procedure of the example 
problem, the following power results were attained: 
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SKID 



FIXED WHEEL 



RETRACTABLE GEAR 



JOTRL POWER 



TOTAL POWER 



TOTAL PUWEF 



£'4=15 1 785.3026 

£FPQ=3!,4fi 



GW= 16..23€*. 
pppo=?5 s 9i 



GH=t 6 ? 363. 17 
E rp 2=38 s 9* 



VEL < KNOTS) 

PQ14P 



I , 6b ( . 



, *i"Ot 



I4U. 
* 35 1 . 

168. 



ISO. 

3 } 0 9 6 a 



UPi_ (KNOTS) 
ESHP 



*4* 




*** 


*** 


1 .> 958 « 


*.** 


*** 


28. 


*** 


*** 


1 *731. 


*** 


*** 


40. 


4 ** 


tti 


1,334. 


*** 


±*± 


68. 


±*± 


*** 


1,223. 


4 .** 


*** 


88. 


4*4 




1,389. 


*** 


*** 


180. 


*** 


4*4 


1 , 5o3 a 


*** 


*4* 


1 VU 


444 






1 , QS? 


**:« 


4*4 




*** 


149. 


*** 


*44 


2,516. 


4*4 


*** 


168. 


*4* 


4*4 


3,265. 


*** 


*** 


188, 


*** 


*** 


4,222, 


*** 



VEL <KHOTS’> 
ESHP 



8, 


4*4 


1,977. 


*4* 


28, 


4*4 


1,749. 


**4 


48. 


Tf.jf.iL 


1,345. 


**4 


68. 


*±* 


1,221. 


4** 


88. 


si? 


1,287. 


±4* 


188. 


44$ 


1,581. 


*4* 


128, 


4** 


1,855. 


4** 


148. 


4*4 


■j T- C; 


*** 


168. 


*44 


3 >025. 


*** 


*30. 


*** 


3. .875. 


*** 
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ENGINE SHAFT HORSEPOWER 



The Hughes AAH-64 utilizes a fixed wheel type landing 
gear. The airspeed vs. power graph depicts the actual power 
requirements of the AAH-64 at various airspeeds and weights. 
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By approximating the computed gross weight line for the 
fixed wheel gear data (16,236.47 lbs), a comparison between 
the actual and computed power requirements can be made. The 
following table shows this comparison and the percent error. 



VEL 


HP ACTUAL 


HP COMPUTED 


| % ERROR 


0 


2320 


1958 


15.6 


20 


2000 


1731 


13.5 


40 


1500 


1334 


i — 1 

• 

i — 1 
i — 1 


60 


1220 


1223 


0.2 


80 


1220 


1309 


7.3 


100 


1375 


1553 


12.9 


120 


1680 


1952 


16.2 


140 


2300 


2516 


9.4 



The average percent error is 10.15 
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COMPARISON OF ADV. SYST. COMPUTER PROGRAM 



One of the primary goals of this project is to develop 
programs for the HP-41 which output values to within 10 
percent of the Army Aviation Research and Development 
Command's Advanced System's Computer Program. The following 
data was inputted into both programs . 



Radius of main rotor blade= 
Critical mach number= 

Maximum fwd. velocity= 
Specification weight= 

No. of main rotor blades= 
Coefficient of drag at 0 lift= 
Height of rotor above ground= 
Fuel weight= 

Useful load= 

Tail rotor aspect ratio= 

Coeff of drag at 0 lift (tr)= 
No. of tail rotor blades= 

Conf iguration= 

No. of engines= 

No. of landing gear= 



27 ft 
.65 

160 knots 
18000 lbs 
4 



.01 

14.4 ft 
4000 lbs 
3750 lbs 



8.0 



.0145 

4 

Clean 

2 



3 
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Using the PTOT (printer) program 



the following data 



was outputted : 



SKID 




FIXED WHEEL 




RETRACTABLE 


GEAR 


TOTAL POWER 


TOTAL POWER 


TOTAL 


POWER 


GN= 16744. 988 2 




GN=j 71 98,23 




GM= 17326. 65 






EFPfl=28.95 




EF?0=24,65 




EFPq=io.0O 






VEL < KNOTS) 




VEL 'KNOTS) 




VEL < KNOTS) 






ESHP 




ESHP 




ESHP 






8 


*** 


8 


±±£ 




0 


*** 


1862 


*** 


1923 


*** 




1941 


*** 


28 


*** 


28 






28 


*** 


1688 


*** 


2666 


*** | 




1632 


*** 


48 




48 






48 




1284 


*** 


1251 






1258 


±3C2 


68 


ttt 


68 






68 




1187 




2149 






1141 


*** 


88 




88 


*** 




88 


*** 


1173 


±t* 


1221 






1188 


*** 


188 




188 


*** 




188 


±** 


2356 




1421 


*** 




1348 




120 


±±± 


128 






128 




1647 


t±± 


2741 


±$± 




2618 


±:fe£ 


140 


if±’£ 


140 


£$:£ 




148 


*** 


2848 


±i:»: 


2187 


*** 




1976 




168 




168 


*** 




168 


*** 


2576 


%±if. 


2772 






2453 
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A comparison of the Advanced System's output reveals the 



following : 

VEL SKID FIX WHEEL RETR GEAR 





HP 41 


AD SY 


| %er| 


HP41 


0 


1861 


1998 


6.86 


1923 


20 


1608 


1781 


9.71 


1666 


40 


1204 


1344 


10.42 


1251 


60 


1107 


1152 


3.91 


1149 


80 


1173 


1143 


2.62 


1221 


100 


1356 


1264 


7.28 


1421 


120 


1647 


1508 


9.22 


1741 


140 


2049 


1984 


3.28 


2187 


160 


2576 


2688 


4.17 


2772 


Skid 


avg % 


error= 




6.39 


Fixed wheel 


avg % 


errors 


5.53 


Petr 


gear avg % error= 


6.10 



ADSY 


[%ER| 


HP 41 


ADSY 


| %er| 


2065 


6.88 


1941 


2085 


6.91 


1846 


9.75 


1682 


1865 


9.81 


1396 


10.39 


1258 


1406 


10.53 


1198 


4.09 


1141 


1193 


4.36 


1194 


2.26 


1188 


1166 


1.89 


1330 


6.84 


1348 


1269 


6.23 


1621 


7.40 


1610 


1498 


7.48 


2147 


1.86 


1976 


1956 


1.02 


2780 


00 

(N 

# 


2453 


2628 


6.66 



It is readily apparent that the goal of 10% accuracy has 
been exceeded. These programs are rapidly executed, inexpen- 
sive to run, and sacrifice a very small percentage of accuracy. 
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The following printouts depict the Advanced System's 
Branch computer output for Skid, Fixed Wheel, and Retractable 
Type landing gears. 
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APPENDIX C 



COMPUTER GRAPHICS PRINTOUT 
MY PLOT AND POWERPLO COMPUTER PRINTOUTS 

The following program graphs the power data for a skid, fixed 
wheel, and retractable geared configured helicopter. The attached 
graph is an actual plot of the example cargo helicopter. 



HELICOPTER POWER REQUIREMENTS 

SHAFT HORSEPOWER VS. AIRSPEED 

STANOABD SEA LEVEL 



POWER CURVES 
o-SKID 

o -FIXED WHEEL 
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FILE; NY PL OT FORTRAN Al. .NAVAL POSTGRAOJATE SCHOOL 



PROGRAM TO PLOT POWE* REQUIREMENTS VS • AIRSPEED FOR A HELICOPTER 
WITH SKID * FIXED WHEEL, AND RETRACTABLE LAND I NU GEAR USING The 
TEXTRONIX ELECTROSTATIC PLOTTER ANO DISSPLA SOFTWARE* 

REAL SKID, SKIDS , FIX, FIX ED, RET R, RE TRA 

DIMENSION S< ID ( 10 ) , SKIDS ( 10) ,F IX( IOJ, FlXEDdOl » * 5 TR ( 10) ,RETRA( 10) 

DATA SKID/O* ,2 0. , 40* , 6 0. , 8 0. ,1 
OATA SKIDS/4247 , 3 72 I, 2843 , 2533 
DATA FIX/0.,20, ,40. ,3 0. , 30. • 10 
DATA FIXED/4376, 3 843, 294 3,2 727 
DATA RETR/O. ,20. , 40. , oO. , 80. , 1 
DATA RETRA/4413, 3376, 2963,2724 
“ ' ‘ ‘ PLOTTER 



00. , 120. ,140. ,160. , 180. / 
,2817,3233,4013 ,5039, o3 7<*, 3059/ 
0., 120. ,140. ,160. , 130./ 

,29 18,3419 ,4215 ,5324,6779,3622/ 
G0.,12D.,lA0«,lo0., 1 SO « / 

, 29 8 0.3 328 ,409 7 ,5049 ,63 o 2, 80 21/ 



C CAU TEKTRONIX SIS 
CALL TEK616 

C If PLOT EXCEEDS SCREEN SICE, SCALE DOWN TO FIT SCREEN 
CALL HwSCAU 'SCREEN*) 

C SET PAGE SICE 

CALL PAGE ( 11 . , 8 . 5 ) 

C DEFINE AREA OF PLOT ON P4 Gc 
CALL AREA2D< 8. 0,5. 5) 

C FRAME THE SUBPLOT AREA 
CALL FRAME 

C SET THE TYPE FONT DESIRED 
CALL SWISSL 

C SET THICKNESS GF CURVE (IN INCHES! 

CALL THKC RV 1.015) 

C OEFINE NAME OF X AXIS 

CALL XNAME( ' AIRSPEED (KNOTS)S* 

C OEFINE NAME OF Y AXIS 

CALL YNAMcC SHAFT HORSEPOWERS* 

C OEFINE HEADING 3F PLOT 

CALL HEAD IN< 'HELICOPTER POWER 
CALL HEADIN( ' SHAF T HORSEPOWER 
CALL HEAD IN< * STANDARD SEA LfVE 
C SET X ORIGIN, X STEP, X MAXIMUM, Y 
CALL GRAF(0.0,20. ,200. ,250C.,1 
RASPLN (1.5J 
GRI 0(1,1) 

CUR V t( TPTS X, TPTSY, 

CURVE(SKID, SKIDS ,9, 1 ) 

CURVE(F IX ,r I XEO, 9 ,1 ) 

CURVE) RETR.RETRA ,9, I) 

LINES)' SKIDS' , IRAKI ,1) 

LINES( ' FI XEO WHEELS', IRAK 
LINES(' RETRACT A3LE WHEELS 
RYLE GN( 'POWER CURVE S', 12) 

LEGE NO (IRAKI ,3,6.6, 5.5) 

ENDPLO ) 

DONE PL 



CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

STOP 

ENO 



,100 ) 

»1D0 ) 

REQU IREMENTSS* , - IDO , 2. D , 3) 
VS. AIRSPEEDS* ,-lDD, 1.5, 3) 
LS' ,-100,1.0,3) 

ORIGIN, Y STEP, Y MAXIMUM 
000. ,6700. ) 

, 0 ) 



1 , 2 ) 

' , I P AK1 , 3) 
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The following program plots the data from the PTOT (Full 



Display) program. 



FILE:. POWERPLO FORTRAN A1 NAVAL POSTGRADUATE SCHOOL 



C 

C 

c 

c 



PROGRAM TO PLOT THE PARASITE, PROFILE, INOUCEO, AND TOTAL 
POWER REQUIRED FOR A HELICOPTER WITH SKID, FIXED WHEEL, OR 
RETRACTASLE LANDING GEAR. 

REAL PAR, PARA, PRO, PROS, I NC , INCU, T OT, TOTS 

DIMENSION PARI I.PARAI I , PRO! J.PROSI ),IND1 I.INOU! I.TOTI ) 
1 TOTS ( J 

DATA PAR/0.,20. ,40. ,6 0. , 8 0. , 10 0. , 120. ,140. ,1 60./ 

DATA PARA/ / 

DATA PRO/ 0., 20., 40., 6 0., 8 0., 10 0. ,120. ,140. ,16 0./ 

DATA PROS/ / 

DATA IND/0.,20. ,40. ,60.,30.,100., 120. ,140. ,160./ 

DATA INDU/ / 

DATA TCT/O. ,20. ,40. ,6 0. , 80. , 10 0. , 1 20. , 140 . ,1 60./ 

DATA TOTS/ 

~~ PLOTTER 



SCALE DOWN TO FIT SCREEN 



C CALL TEKTRONIX 618 
CALL TEK618 

C IF PLOT EXCEEDS SCREEN SIZE, 

CALL HWSCAU 'SCREEN* J 
C SET PAGE SIZE 

CALL PAGE ( 11 • , 3 • 5 ) 

C DEFINE AREA OF PLOT ON PAGE 
CALL AREA2DI 3.0, 5.5) 

C FRAME TJHE SUBPLOT AREA 
CALL FRAME 

C SET THE TYPE FONT DESIRED 
CALL SWISSL 

C SET THICKNESS OF CURVE (IN INCHES) 

CALL THKCRVI.015) 

C DEFINE NAME OF X AXIS 

CALL XNAMEI 'AIRSPEED ( KNOTS) S' , IDO » 

C DEFINE NAME OF Y A XI S 

CALL YNAMEI ' SH AF T HORSEPOWERS' 

C DEFINE HEADING DF PLOT 

CALL HEADINI 'HELICOPTER POWER 
CALL HEAO INI ' SHAFT HORSEPOWER 
CALL FEADINI'SKIO LANDING GE AR $ • , - 100 , 1. 0 ,3) 

C CALL HEADINI 'FIXED wHcELS' ,-100,1 .0,3 ) 

C CALL HEAD INI 'RETRACTA3LE GEARS • 1 00, 1 .0 , 3 ) 

C SET X ORIGIN, X STEP, X MAXIMUM, Y ORIGIN, Y STEP, 
CALL GRAF (0.0,20. ,190.,0. ,500. ,20 00.) 

CALL RASP LN (1.5) 

CALL GRID (1,1) 

C CALL CURVEITPTSX, TPTSY , ,0) 

CALL CURV EIPAR.PARA.9 , 1) 

CALL CURV E I PRO , PR OS , 5 ,1) 

CALL CURVE! IND.INOU, 9,1) 

. CALL CURVEITOT ,T0TS,9 ,1) 

CALL LINES! 'PARASITES' .IPAKl.l ) 

CALL LINES! • PROF I LES' , IRAKI, 2) 

CALL LINES!' INOJCEDS* , IRAKI, 31 
CALL LINES!' TOTALS' .IRAKI ,4) 

CALL MYLEGNI'POWER CURVES' ,12) 

CALL LEGEND! IRAKI ,4, 6. 6, 6.0) 

CALL ENDPL10) 

CALL CONE PL 

STOP 

END 



,100 ) 

RE3U IREMENTSS* ,-100 ,1.5, 3) 
VS. AIRSPEEDS' ,-100 ,1.0,3) 



Y MAXIMUM 
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